From: Abigail <abigail@abigail.be>
Date: Tue, 6 May 2008 17:38:28 +0000 (+0200)
Subject: Use 3-arg open.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cfa308ca48f0c049b970efc9923e3d53db4725d0;p=p5sagit%2Fp5-mst-13.2.git

Use 3-arg open.
Message-ID: <20080506153828.GA27662@abigail.be>

p4raw-id: //depot/perl@33793
---

diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm
index 41a8fa2..caf8262 100644
--- a/lib/File/Copy.pm
+++ b/lib/File/Copy.pm
@@ -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;
     }