my %DONOR_PATH_MAP = ();
my %DONOR_REV_MAP = ();
my %RECIP_CACHE = ();
+my @RENAME_LIST;
sub note_path ($$) {
my ($donor, $recip) = @_;
## Done.
close $in;
- close $out; rename "$to.new", "$to";
+ close $out;
+ push @RENAME_LIST, $to
}
###--------------------------------------------------------------------------
print $out "test " . $test . "\n\n";
print $out $chunk;
}
- close $out; rename "$to.new", "$to";
+ close $out;
+ push @RENAME_LIST, $to;
}
###--------------------------------------------------------------------------
commit_changes() if !$DOCONVERT;
+if ($DOCONVERT) {
+ foreach my $to (@RENAME_LIST) {
+ rename "$to.new", "$to";
+ }
+}
+
# Local variables:
# cperl-indent-level: 2
# End: