File tree Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Original file line number Diff line number Diff 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 ;
You can’t perform that action at this time.
0 commit comments