summaryrefslogtreecommitdiff
path: root/regen/regen_lib.pl
diff options
context:
space:
mode:
Diffstat (limited to 'regen/regen_lib.pl')
-rw-r--r--regen/regen_lib.pl3
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;