In regen_lib.pl use a meaningful key for storing the file's name.
authorNicholas Clark <nick@ccl4.org>
Sun, 23 Jan 2011 09:15:58 +0000 (09:15 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 23 Jan 2011 09:19:17 +0000 (09:19 +0000)
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.

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 {