diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-10-29 23:00:05 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-19 12:07:25 +0000 |
| commit | 36bb303b6ac55df9c2780b48d374c505374dc378 (patch) | |
| tree | 6aa3bf528c2bb5e5d77e72a8f5137a045663734e /keywords.pl | |
| parent | 0dae17bd7971d11b90a07b6fc03ec78ab38e4db4 (diff) | |
| download | perl-36bb303b6ac55df9c2780b48d374c505374dc378.tar.gz | |
regen_headers outside Makefile (was Re: [PATCH] embed.pl doc)
Message-ID: <20021029230003.GF287@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@18160
Diffstat (limited to 'keywords.pl')
| -rwxr-xr-x | keywords.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/keywords.pl b/keywords.pl index d5903fa18f..c804620cf8 100755 --- a/keywords.pl +++ b/keywords.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl -unlink "keywords.h"; +require 'regen.pl'; +safer_unlink ("keywords.h"); open(KW, ">keywords.h") || die "Can't create keywords.h: $!\n"; select KW; @@ -30,6 +31,8 @@ while (<DATA>) { print &tab(5, "#define KEY_$keyword"), $keynum++, "\n"; } +close KW or die "Error closing keywords.h: $!"; + ########################################################################### sub tab { local($l, $t) = @_; |