diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-07-15 04:45:57 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-15 06:26:00 +0000 |
| commit | 3f5ee3026104a5258c13c354d1b62b7b5e80170d (patch) | |
| tree | 399dd69c836f227cf17189ba8175e0719f987f37 /lib/File | |
| parent | 93502d792e3945f395126f4570c980edbfee0f5e (diff) | |
| download | perl-3f5ee3026104a5258c13c354d1b62b7b5e80170d.tar.gz | |
5.004_74: MPE/iX final touches
Message-Id: <199807142245.BAA09651@alpha.hut.fi>
p4raw-id: //depot/perl@1502
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Copy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 21473a6dc9..d0b3c8977e 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -181,7 +181,7 @@ unless (defined &syscopy) { *syscopy = \&rmscopy; } elsif ($^O eq 'mpeix') { *syscopy = sub { - return 0 unless @_ == 0; + return 0 unless @_ == 2; # Use the MPE cp program in order to # preserve MPE file attributes. return system('/bin/cp', '-f', $_[0], $_[1]) == 0; |