diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-03-17 00:17:26 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-03-17 00:17:26 +0000 |
commit | 08858ed21b9a4d448437bdae35df5c42fbe1c8bd (patch) | |
tree | d27bb2954cf830c9866eaa74e228a0a358b0d119 /embed.pl | |
parent | 424a4936e3f61f4e8db394f496a116e698cede85 (diff) | |
download | perl-08858ed21b9a4d448437bdae35df5c42fbe1c8bd.tar.gz |
Drag autodoc.pl and overload.pl into the age of safer_open().
Thanks to the wisdom of london.pm, stuff the filename into the SCALAR
slot of the typeglob created in safer_open(), so that ...
Add safer_close(), that will die (with the filename) if the close
fails.
p4raw-id: //depot/perl@33539
Diffstat (limited to 'embed.pl')
-rwxr-xr-x | embed.pl | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -108,7 +108,7 @@ sub walk_table (&@) { } print $F $trailer if $trailer; unless (ref $filename) { - close $F or die "Error closing $filename: $!"; + safer_close($F); rename_if_different("$filename-new", $filename); } } @@ -637,7 +637,7 @@ print $em <<'END'; /* ex: set ro: */ END -close($em) or die "Error closing EM: $!"; +safer_close($em); rename_if_different('embed.h-new', 'embed.h'); $em = safer_open('embedvar.h-new'); @@ -732,7 +732,7 @@ print $em <<'END'; /* ex: set ro: */ END -close($em) or die "Error closing EM: $!"; +safer_close($em); rename_if_different('embedvar.h-new', 'embedvar.h'); my $capi = safer_open('perlapi.c-new'); @@ -859,7 +859,7 @@ print $capih <<'EOT'; /* ex: set ro: */ EOT -close $capih or die "Error closing CAPIH: $!"; +safer_close($capih); rename_if_different('perlapi.h-new', 'perlapi.h'); print $capi do_not_edit ("perlapi.c"), <<'EOT'; @@ -941,7 +941,7 @@ END_EXTERN_C /* ex: set ro: */ EOT -close($capi) or die "Error closing CAPI: $!"; +safer_close($capi); rename_if_different('perlapi.c-new', 'perlapi.c'); # functions that take va_list* for implementing vararg functions |