This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In regen_lib.pl use a meaningful key for storing the file's name.
[perl5.git] / regen / regen_lib.pl
index 4ea2cf6..b4d9f86 100644 (file)
@@ -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 {