In regen_lib.pl use a meaningful key for storing the file's name.

regen_lib.pl is actually using the hash slot of the typeglob, not the scalar
slot. Typeglob syntax is particularly confusing and prone to errors, although
in this case it doesn't make any behaviour difference.

1 files changed, 2 insertions, 2 deletions

diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl
index 4ea2cf6514..b4d9f86c1e 100644
--- a/regen/regen_lib.pl
+++ b/regen/regen_lib.pl
@@ -65,14 +65,14 @@ sub safer_open {
     my $name = shift;
     my $fh = gensym;
     open $fh, ">$name" or die "Can't create $name: $!";
-    *{$fh}->{SCALAR} = $name;
+    *{$fh}->{name} = $name;
     binmode $fh;
     $fh;
 }
 
 sub safer_close {
     my $fh = shift;
-    close $fh or die 'Error closing ' . *{$fh}->{SCALAR} . ": $!";
+    close $fh or die 'Error closing ' . *{$fh}->{name} . ": $!";
 }
 
 sub read_only_top {