From 08858ed21b9a4d448437bdae35df5c42fbe1c8bd Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 17 Mar 2008 00:17:26 +0000
Subject: 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
---
 warnings.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'warnings.pl')

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__
-- 
cgit v1.2.1