[PATCH lib/File/Copy.pm] Use 3-arg open.

This patch make File::Copy use 3-arg open instead of 2-arg open with 
magical NUL characters.


Abigail

--- lib/File/Copy.pm.orig	2008-05-06 17:26:03.000000000 +0200
+++ lib/File/Copy.pm	2008-05-06 17:27:00.000000000 +0200
@@ -163,7 +163,7 @@
     } else {
 	$from = _protect($from) if $from =~ /^\s/s;
        $from_h = \do { local *FH };
-       open($from_h, "< $from\0") or goto fail_open1;
+       open $from_h, "<", $from or goto fail_open1;
        binmode $from_h or die "($!,$^E)";
 	$closefrom = 1;
     }
@@ -182,7 +182,7 @@
     } else {
 	$to = _protect($to) if $to =~ /^\s/s;
        $to_h = \do { local *FH };
-       open($to_h,"> $to\0") or goto fail_open2;
+       open $to_h, ">", $to or goto fail_open2;
        binmode $to_h or die "($!,$^E)";
 	$closeto = 1;
     }

• [PATCH lib/File/Copy.pm] Use 3-arg open. by Abigail
• Re: [PATCH lib/File/Copy.pm] Use 3-arg open. by Rafael Garcia-Suarez