diff options
Diffstat (limited to 'regen/keywords.pl')
| -rwxr-xr-x | regen/keywords.pl | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/regen/keywords.pl b/regen/keywords.pl index 9d2f3ca83d..5f3695602c 100755 --- a/regen/keywords.pl +++ b/regen/keywords.pl @@ -13,14 +13,12 @@ use Devel::Tokenizer::C 0.05; require 'regen/regen_lib.pl'; -my $h = open_new('keywords.h'); -my $c = open_new('keywords.c'); - -print $h read_only_top(lang => 'C', by => 'regen/keywords.pl', - from => 'its data', file => 'keywords.h', style => '*', - copyright => [1994 .. 1997, 1999 .. 2002, 2005 .. 2007]); -print $c read_only_top(lang => 'C', by => 'regen/keywords.pl', - from => 'its data', style => '*'); +my $h = open_new('keywords.h', '>', + { by => 'regen/keywords.pl', from => 'its data', + file => 'keywords.h', style => '*', + copyright => [1994 .. 1997, 1999 .. 2002, 2005 .. 2007]}); +my $c = open_new('keywords.c', '>', + { by => 'regen/keywords.pl', from => 'its data', style => '*'}); my %by_strength; |