diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-05-14 17:08:56 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-05-19 10:18:14 +0100 |
| commit | 29c22b52682692a630218342d1997c803a3b487b (patch) | |
| tree | 292f5591f4269ba0567791e22c5a87e2f93ba358 /regen_perly.pl | |
| parent | fb8ff1db5449e3c679d9193f00ffaa0a15f88fd7 (diff) | |
| download | perl-29c22b52682692a630218342d1997c803a3b487b.tar.gz | |
Rename safer_open() to open_new(), and eliminate the first parameter.
Update the SHA256s where necessary in the generated files.
Diffstat (limited to 'regen_perly.pl')
| -rw-r--r-- | regen_perly.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/regen_perly.pl b/regen_perly.pl index ec591c5b42..668f1642fe 100644 --- a/regen_perly.pl +++ b/regen_perly.pl @@ -99,10 +99,10 @@ $tablines .= make_type_tab($y_file, $tablines); my $read_only = read_only_top(lang => 'C', by => $0, from => $y_file); -my $act_fh = safer_open("$act_file-new", $act_file); +my $act_fh = open_new($act_file); print $act_fh $read_only, $actlines; -my $tab_fh = safer_open("$tab_file-new", $tab_file); +my $tab_fh = open_new($tab_file); print $tab_fh $read_only, $tablines; unlink $tmpc_file; @@ -112,7 +112,7 @@ unlink $tmpc_file; # C<#line 188 "perlytmp.h"> gets picked up by make depend, so remove them. open my $tmph_fh, '<', $tmph_file or die "Can't open $tmph_file: $!\n"; -my $h_fh = safer_open("$h_file-new", $h_file); +my $h_fh = open_new($h_file); print $h_fh $read_only; |