# New Ticket Created by Andy Dougherty
# Please include the string: [perl #17002]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17002 >
Configure.pl's 'copy_if_diff()' function was actually calling rename()
and moving the file. The net result was that if you tried to re-run
Configure.pl, it failed at the MANIFEST check point because
the config/gen/platform/generic.? files had been moved.
This patches replaces the rename() call by File::Copy::copy
(which is available at least as far back as 5.005_03).
diff -r -u parrot-orig/lib/Parrot/Configure/Step.pm
parrot-andy/lib/Parrot/Configure/Step.pm
--- parrot-orig/lib/Parrot/Configure/Step.pm Tue Sep 3 10:28:29 2002
+++ parrot-andy/lib/Parrot/Configure/Step.pm Wed Sep 4 13:52:10 2002
@@ -2,6 +2,7 @@
use strict;
use Exporter;
+use File::Copy ();
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA=qw(Exporter);
@@ -68,7 +69,7 @@
return if $from_sum == $to_sum;
}
- rename($from, $to);
+ File::Copy::copy($from, $to);
# Make sure the timestamp is updated
my $now=time;
--
Andy Dougherty [EMAIL PROTECTED]
Dept. of Physics
Lafayette College, Easton PA 18042
