From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 10 Sep 2003 15:10:06 +0000 (+0000)
Subject: [PATCH 5.8.1] Unwanted "redefined" warnings in h2ph
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ccfcdfed9f3ff9055d648c1341dca5624eda2f4c;p=p5sagit%2Fp5-mst-13.2.git

[PATCH 5.8.1] Unwanted "redefined" warnings in h2ph
From: Kurt Starsinic <kstar@cpan.org>
Date: Tue, 9 Sep 2003 23:16:00 -0400
Message-ID: <20030910031600.GA30554@verizon.net>

Subject: Re: [PATCH 5.8.1] Unwanted "redefined" warnings in h2ph
From: "Brendan O'Dea" <bod@debian.org>
Date: Wed, 10 Sep 2003 22:03:15 +1000
Message-ID: <20030910120315.GA1372@londo.c47.org>

p4raw-id: //depot/perl@21159
---

diff --git a/t/lib/h2ph.pht b/t/lib/h2ph.pht
index 8bc1636..e03cbb9 100644
--- a/t/lib/h2ph.pht
+++ b/t/lib/h2ph.pht
@@ -1,5 +1,7 @@
 require '_h2ph_pre.ph';
 
+no warnings 'redefine';
+
 unless(defined(&SQUARE)) {
     sub SQUARE {
 	local($x) = @_;
diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 27a7bf6..eaa019a 100644
--- 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*//) {