diff --git a/src/vfs/extfs/helpers/patchfs.in b/src/vfs/extfs/helpers/patchfs.in
index 264e857..44b26a8 100644
a
|
b
|
sub copyin($$$) { |
380 | 380 | or error "Can't write to archive"; |
381 | 381 | } |
382 | 382 | |
| 383 | my $fin = $ARGV[1]; |
| 384 | if (-l $fin) { |
| 385 | $fin = readlink $fin; |
| 386 | } |
383 | 387 | |
384 | 388 | if ($ARGV[0] eq 'list') { |
385 | | open I, myin($ARGV[1]).'|'; |
386 | | list ($ARGV[1]); |
| 389 | open I, myin($fin).'|'; |
| 390 | list ($fin); |
387 | 391 | exit 0; |
388 | 392 | } elsif ($ARGV[0] eq 'copyout') { |
389 | | open I, myin($ARGV[1])."|"; |
| 393 | open I, myin($fin)."|"; |
390 | 394 | copyout ($ARGV[2], $ARGV[3]); |
391 | 395 | exit 0; |
392 | 396 | } elsif ($ARGV[0] eq 'rm') { |
393 | | open I, myin($ARGV[1])."|"; |
394 | | rm ($ARGV[1], $ARGV[2]); |
| 397 | open I, myin($fin)."|"; |
| 398 | rm ($fin, $ARGV[2]); |
395 | 399 | exit 0; |
396 | 400 | } elsif ($ARGV[0] eq 'rmdir') { |
397 | 401 | exit 0; |
398 | 402 | } elsif ($ARGV[0] eq 'mkdir') { |
399 | 403 | exit 0; |
400 | 404 | } elsif ($ARGV[0] eq 'copyin') { |
401 | | copyin ($ARGV[1], $ARGV[2], $ARGV[3]); |
| 405 | copyin ($fin, $ARGV[2], $ARGV[3]); |
402 | 406 | exit 0; |
403 | 407 | } |
404 | 408 | exit 1; |