summaryrefslogtreecommitdiff
path: root/lib/File
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.ohio-state.edu>1996-10-10 00:42:29 -0400
committerAndy Dougherty <doughera@lafcol.lafayette.edu>1996-10-10 00:42:29 -0400
commit30c5452436ffebadaf1729c8166697074e67a6e9 (patch)
tree553df6600e4d05db9b0a3c4ae77b95fa7975c5df /lib/File
parenta2baab1cc603d5a65b64b1ba9e9288aa23bf3310 (diff)
downloadperl-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)
Diffstat (limited to 'lib/File')
-rw-r--r--lib/File/Copy.pm6
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;