diff options
| -rw-r--r-- | regen/regen_lib.pl | 4 |
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 { |