diff options
Diffstat (limited to 'regen/regen_lib.pl')
-rw-r--r-- | regen/regen_lib.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl index b4d9f86c1e..880a9754d5 100644 --- a/regen/regen_lib.pl +++ b/regen/regen_lib.pl @@ -63,6 +63,9 @@ sub rename_if_different { # Saf*er*, but not totally safe. And assumes always open for output. sub safer_open { my $name = shift; + if (-f $name) { + unlink $name or die "$name exists but can't unlink: $!"; + } my $fh = gensym; open $fh, ">$name" or die "Can't create $name: $!"; *{$fh}->{name} = $name; |