Output "read only" editor blocks from regen_perly.pl

[perl5.git] / regen / regen_lib.pl

diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl
index 86d3b6c..2d4ceac 100644 (file)
--- a/regen/regen_lib.pl
+++ b/regen/regen_lib.pl
@@ -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;