[ 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..)
sub eqtime
{
my ($src,$dst) = @ARGV;
- open(F,">$dst");
+ open(F,">>$dst");
close(F);
utime((stat($src))[8,9],$dst);
}