diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-13 01:31:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-13 01:31:01 +0000 |
| commit | 1c1af1294d180568ff31f519f21cb56cad997900 (patch) | |
| tree | 110271fcc913bdf9aa6c3da454e4356e9e17f6c2 /lib | |
| parent | d6e1ba68f7938a91542fca2a775f4de2855b1b0f (diff) | |
| download | perl-1c1af1294d180568ff31f519f21cb56cad997900.tar.gz | |
Integrate perlio to mainline:
[ 18240]
Avoid eqtime() wiping the file (as suggested by
"Luis G. Uribe C." <GUribe@SoftHome.net>
p4raw-link: @18240 on //depot/perlio: a6bd83f0a15d2730a2e1d4ba3319cc912869b7f3
p4raw-id: //depot/perl@18472
p4raw-integrated: from //depot/perlio@18468 'copy in'
lib/ExtUtils/Command.pm (@17257..)
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/Command.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/Command.pm b/lib/ExtUtils/Command.pm index 6593ab3a35..829de168fa 100644 --- a/lib/ExtUtils/Command.pm +++ b/lib/ExtUtils/Command.pm @@ -78,7 +78,7 @@ Sets modified time of dst to that of src sub eqtime { my ($src,$dst) = @ARGV; - open(F,">$dst"); + open(F,">>$dst"); close(F); utime((stat($src))[8,9],$dst); } |