diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2003-12-03 02:44:40 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2003-12-03 02:44:40 +0000 |
| commit | 0121b80e4f69c2ad9631e8d20b5c91f3b2a40434 (patch) | |
| tree | 49a8ade446c1b6277c06982988700467e1be139c /gnu/usr.bin/perl/regcomp.pl | |
| parent | 184128d6fb928711cdef9d8e6980dc6601fb1f87 (diff) | |
perl 5.8.2 from CPAN
Diffstat (limited to 'gnu/usr.bin/perl/regcomp.pl')
| -rw-r--r-- | gnu/usr.bin/perl/regcomp.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/regcomp.pl b/gnu/usr.bin/perl/regcomp.pl index 6ae847882d4..1809da3b255 100644 --- a/gnu/usr.bin/perl/regcomp.pl +++ b/gnu/usr.bin/perl/regcomp.pl @@ -1,3 +1,7 @@ +BEGIN { + # Get function prototypes + require 'regen_lib.pl'; +} #use Fatal qw(open close rename chmod unlink); open DESC, 'regcomp.sym'; $ind = 0; @@ -112,8 +116,6 @@ static const int reg_num = $tot; EOP -close OUT; +close OUT or die "close $tmp_h: $!"; -chmod 0666, 'regnodes.h'; -unlink 'regnodes.h'; -rename $tmp_h, 'regnodes.h'; +safer_rename $tmp_h, 'regnodes.h'; |