diff options
| author | Jim Cromie <jcromie@cpan.org> | 2008-03-11 12:16:14 -0600 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-03-15 17:30:19 +0000 |
| commit | b6b9a09997c80269af874aff41936e014ed728f7 (patch) | |
| tree | 461c4ca1dd9e80df65f170edfb6797c4eafe2a22 /keywords.pl | |
| parent | b2866d4731cba846ea38e592b806a44f665742ca (diff) | |
| download | perl-b6b9a09997c80269af874aff41936e014ed728f7.tar.gz | |
Re: [patch] refine make regen to be more selective
Message-ID: <47D720CE.7060004@gmail.com>
Date: Tue, 11 Mar 2008 18:16:14 -0600
p4raw-id: //depot/perl@33537
Diffstat (limited to 'keywords.pl')
| -rwxr-xr-x | keywords.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/keywords.pl b/keywords.pl index eb0c0af41b..8e7a67804b 100755 --- a/keywords.pl +++ b/keywords.pl @@ -2,8 +2,8 @@ use strict; require 'regen_lib.pl'; -safer_unlink ("keywords.h"); -open(KW, ">keywords.h") || die "Can't create keywords.h: $!\n"; + +open(KW, ">keywords.h-new") || die "Can't create keywords.h: $!\n"; binmode KW; select KW; @@ -39,6 +39,8 @@ print KW "\n/* ex: set ro: */\n"; close KW or die "Error closing keywords.h: $!"; +safer_rename("keywords.h-new", "keywords.h"); + ########################################################################### sub tab { my ($l, $t) = @_; |