From: Ilya Zakharevich Date: Thu, 10 Oct 1996 04:42:29 +0000 (-0400) Subject: Cleanup after new test X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30c5452436ffebadaf1729c8166697074e67a6e9;p=p5sagit%2Fp5-mst-13.2.git Cleanup after new test Below are patches for File::Copy (copying to filehandles was just plain broken under OS/2 and VMS) --- diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 92b9be1..5cea310 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;