mirror of https://github.com/MidnightCommander/mc
Ticket #2910: enter into symlink to commpressed patch shows empty patch.
Signed-off-by: Andrew Borodin <aborodin@vmail.ru>
This commit is contained in:
parent
9b99f5b659
commit
9af54886d6
|
@ -380,25 +380,31 @@ sub copyin($$$) {
|
|||
or error "Can't write to archive";
|
||||
}
|
||||
|
||||
my $fin = $ARGV[1];
|
||||
|
||||
# resolve symlink
|
||||
while (-l $fin) {
|
||||
$fin = readlink $fin;
|
||||
}
|
||||
|
||||
if ($ARGV[0] eq 'list') {
|
||||
open I, myin($ARGV[1]).'|';
|
||||
list ($ARGV[1]);
|
||||
open I, myin($fin).'|';
|
||||
list ($fin);
|
||||
exit 0;
|
||||
} elsif ($ARGV[0] eq 'copyout') {
|
||||
open I, myin($ARGV[1])."|";
|
||||
open I, myin($fin)."|";
|
||||
copyout ($ARGV[2], $ARGV[3]);
|
||||
exit 0;
|
||||
} elsif ($ARGV[0] eq 'rm') {
|
||||
open I, myin($ARGV[1])."|";
|
||||
rm ($ARGV[1], $ARGV[2]);
|
||||
open I, myin($fin)."|";
|
||||
rm ($fin, $ARGV[2]);
|
||||
exit 0;
|
||||
} elsif ($ARGV[0] eq 'rmdir') {
|
||||
exit 0;
|
||||
} elsif ($ARGV[0] eq 'mkdir') {
|
||||
exit 0;
|
||||
} elsif ($ARGV[0] eq 'copyin') {
|
||||
copyin ($ARGV[1], $ARGV[2], $ARGV[3]);
|
||||
copyin ($fin, $ARGV[2], $ARGV[3]);
|
||||
exit 0;
|
||||
}
|
||||
exit 1;
|
||||
|
|
Loading…
Reference in New Issue