Rename safer_open() to open_new(), and eliminate the first parameter.

Update the SHA256s where necessary in the generated files.

1 files changed, 6 insertions, 7 deletions

diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl
index a243ee671d..951c23b431 100644
--- a/regen/regen_lib.pl
+++ b/regen/regen_lib.pl
@@ -60,19 +60,18 @@ sub rename_if_different {
   safer_rename_silent($from, $to) or die "renaming $from to $to: $!";
 }
 
-# Saf*er*, but not totally safe. And assumes always open for output.
-sub safer_open {
-    my ($name, $final_name) = @_;
+# Open a new file.
+sub open_new {
+    my ($final_name) = @_;
+    my $name = $final_name . '-new';
     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;
-    if (defined $final_name) {
-	*{$fh}->{final_name} = $final_name;
-	*{$fh}->{lang} = ($final_name =~ /\.(?:c|h|tab|act)$/ ? 'C' : 'Perl');
-    }
+    *{$fh}->{final_name} = $final_name;
+    *{$fh}->{lang} = ($final_name =~ /\.(?:c|h|tab|act)$/ ? 'C' : 'Perl');
     binmode $fh;
     $fh;
 }