projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b1d302c
)
Use 3-arg open.
author
Abigail
<abigail@abigail.be>
Tue, 6 May 2008 17:38:28 +0000
(19:38 +0200)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Thu, 8 May 2008 15:43:55 +0000
(15:43 +0000)
Message-ID: <
20080506153828
.GA27662@abigail.be>
p4raw-id: //depot/perl@33793
lib/File/Copy.pm
patch
|
blob
|
history
diff --git
a/lib/File/Copy.pm
b/lib/File/Copy.pm
index
41a8fa2
..
caf8262
100644
(file)
--- 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;
}