Skip to content

Commit edaa912

Browse files
committed
include timestamp in hash-updated backup files
Otherwise a patch file can override it.
1 parent 0062273 commit edaa912

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

lib/Perl/Dist/Strawberry/Step.pm

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -551,7 +551,8 @@ sub _update_config_H_gc {
551551
$fh->close;
552552

553553

554-
rename $fname, "$fname.orig" or die $!;
554+
# long name but otherwise we interfere with patch backups
555+
rename $fname, "$fname.orig.before_hash_update" or die $!;
555556
open my $ofh, '>', $fname or die "Unable to open $fname to write to, $!";
556557
print {$ofh} $output;
557558
$ofh->close;
@@ -613,7 +614,8 @@ sub _update_config_gc {
613614
}
614615
push @output, (sort @ucfirst_lines), (sort @lcfirst_lines), @perl_lines;
615616

616-
rename $fname, "$fname.orig" or die $!;
617+
# long name but otherwise we interfere with patch backups
618+
rename $fname, "$fname.orig.before_hash_update" or die $!;
617619
open my $ofh, '>', $fname or die "Unable to open $fname to write to, $!";
618620
say {$ofh} join "\n", @output;
619621
$ofh->close;

0 commit comments

Comments
 (0)