X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/56fd1190657e040f5b17c8a00628205a045093e3..d5f215f1125cc143063ff70a0f2901c3b5720deb:/regen/regen_lib.pl

diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl
index dcee0a6..a575c97 100644
--- 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;
 }