diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-05-14 21:59:38 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-05-19 10:18:15 +0100 |
| commit | cc49830d6031e8e74c0426f77e2b3589e5774765 (patch) | |
| tree | 903934cbbab497476834e5c4c83473324fc0a3ac /regen/keywords.pl | |
| parent | 515c3fe0106d244307cd4e79b0a9b86dd95973e4 (diff) | |
| download | perl-cc49830d6031e8e74c0426f77e2b3589e5774765.tar.gz | |
Add an optional third argument to open_new(), to invoke read_only_top() with.
Merge together many calls to open_new() and read_only_top().
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; |