diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-10 15:10:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-10 15:10:06 +0000 |
| commit | ccfcdfed9f3ff9055d648c1341dca5624eda2f4c (patch) | |
| tree | 98933c1efaee10651aa3de9018595aa8236e5eb1 /utils | |
| parent | a79135933e1df731ba243e532123f9956085f1b3 (diff) | |
| download | perl-ccfcdfed9f3ff9055d648c1341dca5624eda2f4c.tar.gz | |
[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
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 4 |
1 files changed, 3 insertions, 1 deletions
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*//) { |