Cleanup after new test
authorIlya Zakharevich <ilya@math.ohio-state.edu>
Thu, 10 Oct 1996 04:42:29 +0000 (00:42 -0400)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Thu, 10 Oct 1996 04:42:29 +0000 (00:42 -0400)
Below are patches for File::Copy (copying to filehandles was just
plain broken under OS/2 and VMS)

lib/File/Copy.pm

index 92b9be1..5cea310 100644 (file)
@@ -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;