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 /warnings.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 'warnings.pl')
| -rw-r--r-- | warnings.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/warnings.pl b/warnings.pl index 669d13c6e6..2f987c5da2 100644 --- a/warnings.pl +++ b/warnings.pl @@ -362,7 +362,7 @@ print $warn <<'EOM'; /* ex: set ro: */ EOM -close $warn; +safer_close $warn; rename_if_different("warnings.h-new", "warnings.h"); while (<DATA>) { @@ -424,7 +424,7 @@ while (<DATA>) { } print $pm "# ex: set ro:\n"; -close $pm; +safer_close $pm; rename_if_different("lib/warnings.pm-new", "lib/warnings.pm"); __END__ |