This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make *.inc behave like *.[hc]
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 Jul 2015 08:55:00 +0000 (11:55 +0300)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 22 Jul 2015 12:33:21 +0000 (08:33 -0400)
regen/regen_lib.pl

index 81069fa..184d86b 100644 (file)
@@ -37,7 +37,7 @@ sub open_new {
     my ($final_name, $mode, $header, $force) = @_;
     my $name = $final_name . '-new';
     my $lang = $final_name =~ /\.pod$/ ? 'Pod' :
     my ($final_name, $mode, $header, $force) = @_;
     my $name = $final_name . '-new';
     my $lang = $final_name =~ /\.pod$/ ? 'Pod' :
-       $final_name =~ /\.(?:c|h|tab|act)$/ ? 'C' : 'Perl';
+       $final_name =~ /\.(?:c|h|inc|tab|act)$/ ? 'C' : 'Perl';
     if ($force && -e $final_name) {
         chmod 0777, $name if $Needs_Write;
         CORE::unlink $final_name
     if ($force && -e $final_name) {
         chmod 0777, $name if $Needs_Write;
         CORE::unlink $final_name