[PATCH 5.8.1] Unwanted "redefined" warnings in h2ph

[p5sagit/p5-mst-13.2.git] / utils / h2ph.PL

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 27a7bf6..eaa019a 100644 (file)
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -120,7 +120,9 @@ while (defined (my $file = next_file())) {
        open(OUT,">$Dest_dir/$outfile") || die "Can't create $outfile: $!\n";
     }
 
-    print OUT "require '_h2ph_pre.ph';\n\n";
+    print OUT
+        "require '_h2ph_pre.ph';\n\n",
+        "no warnings 'redefine';\n\n";
 
     while (defined (local $_ = next_line($file))) {
        if (s/^\s*\#\s*//) {