diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-07-17 11:55:00 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-07-22 08:33:21 -0400 |
| commit | 23fd77c01aafa1987698dc47bed34bd342178516 (patch) | |
| tree | 76291adc76831e38bae949b7830f799fb8d68c19 /regen/regen_lib.pl | |
| parent | 86f4502880c5cbc7a5ec1510ab05a413bfb40e03 (diff) | |
| download | perl-23fd77c01aafa1987698dc47bed34bd342178516.tar.gz | |
Make *.inc behave like *.[hc]
Diffstat (limited to 'regen/regen_lib.pl')
| -rw-r--r-- | regen/regen_lib.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/regen_lib.pl b/regen/regen_lib.pl index 81069fae1e..184d86b40e 100644 --- a/regen/regen_lib.pl +++ b/regen/regen_lib.pl @@ -37,7 +37,7 @@ sub open_new { 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 |