This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Output "read only" editor blocks from regen_perly.pl
[perl5.git] / regen / regen_lib.pl
index 86d3b6c..2d4ceac 100644 (file)
@@ -71,7 +71,7 @@ sub safer_open {
     *{$fh}->{name} = $name;
     if (defined $final_name) {
        *{$fh}->{final_name} = $final_name;
-       *{$fh}->{lang} = ($final_name =~ /\.[ch]$/ ? 'C' : 'Perl');
+       *{$fh}->{lang} = ($final_name =~ /\.(?:c|h|tab|act)$/ ? 'C' : 'Perl');
     }
     binmode $fh;
     $fh;