diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1996-10-10 00:42:29 -0400 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-10-10 00:42:29 -0400 |
| commit | 30c5452436ffebadaf1729c8166697074e67a6e9 (patch) | |
| tree | 553df6600e4d05db9b0a3c4ae77b95fa7975c5df | |
| parent | a2baab1cc603d5a65b64b1ba9e9288aa23bf3310 (diff) | |
| download | perl-30c5452436ffebadaf1729c8166697074e67a6e9.tar.gz | |
Cleanup after new test
Below are patches for File::Copy (copying to filehandles was just
plain broken under OS/2 and VMS)
| -rw-r--r-- | lib/File/Copy.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 92b9be15e6..5cea310265 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -24,9 +24,9 @@ sub copy { croak("Usage: copy( file1, file2 [, buffersize]) ") unless(@_ == 2 || @_ == 3); - if (($^O eq 'VMS' or $^O eq 'os2') && ref(\$to) ne 'GLOB' && - !(defined ref $to and (ref($to) eq 'GLOB' || - ref($to) eq 'FileHandle' || ref($to) eq 'VMS::Stdio'))) + if (($^O eq 'VMS' or $^O eq 'os2') && ref(\$_[1]) ne 'GLOB' && + !(defined ref $_[1] and (ref($_[1]) eq 'GLOB' || + ref($_[1]) eq 'FileHandle' || ref($_[1]) eq 'VMS::Stdio'))) { return File::Copy::syscopy($_[0],$_[1]) } my $from = shift; |