Avoid eqtime() wiping the file (as suggested by
Nick Ing-Simmons [Tue, 3 Dec 2002 12:51:02 +0000 (12:51 +0000)]
"Luis G. Uribe C." <GUribe@SoftHome.net>

p4raw-id: //depot/perlio@18240

lib/ExtUtils/Command.pm

index 6593ab3..829de16 100644 (file)
@@ -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);
 }