[perl #948] [PATCH] Allow tied $,

[perl5.git] / regcomp.pl

diff --git a/regcomp.pl b/regcomp.pl
index b6fc11d..239787a 100644 (file)
--- a/regcomp.pl
+++ b/regcomp.pl
@@ -223,6 +223,6 @@ print $out <<EOP;
 
 /* ex: set ro: */
 EOP
-close $out or die "close $tmp_h: $!";
+safer_close($out);
 
 rename_if_different $tmp_h, 'regnodes.h';