diff options
| -rw-r--r-- | t/lib/h2ph.pht | 2 | ||||
| -rw-r--r-- | utils/h2ph.PL | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/t/lib/h2ph.pht b/t/lib/h2ph.pht index 8bc16369a9..e03cbb95eb 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 27a7bf6834..eaa019a287 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*//) { |