Port regen/regen_lib.pl to 5.6.2

Since the regen scripts use the system perl, I thought I might as
well test regen/feature.pl with 5.6.2, the earliest I have installed.
It failed.

diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl
index dcee0a6..a575c97 100644 (file)
--- a/regen/regen_lib.pl
+++ b/regen/regen_lib.pl
@@ -52,7 +52,7 @@ sub open_new {
     *{$fh}->{final_name} = $final_name;
     *{$fh}->{lang} = $lang;
     binmode $fh;
-    print $fh read_only_top(lang => $lang, %$header) if $header;
+    print {$fh} read_only_top(lang => $lang, %$header) if $header;
     $fh;
 }