Use 3-arg open.
Abigail [Tue, 6 May 2008 17:38:28 +0000 (19:38 +0200)]
Message-ID: <20080506153828.GA27662@abigail.be>

p4raw-id: //depot/perl@33793

lib/File/Copy.pm

index 41a8fa2..caf8262 100644 (file)
@@ -163,7 +163,7 @@ sub copy {
     } 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 @@ sub copy {
     } 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;
     }