# 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