Integrate:

[ 18249]
Suppress a compilation warning reported by Jarkko
(variable initialization skipped by goto).

[ 18250]
Fix bug #18874, essentially by reverting change #11890.
Add a regression test for it.

[ 18251]
Fix two cases of buffer overflow in the lexer.

[ 18259]
Subject: [PATCH] Re: [perl #18651] Hash::Util's lock_key() breaks hash
From: Nicholas Clark <nick@unfortu.net>
Date: Mon, 2 Dec 2002 21:48:29 +0000
Message-ID: <20021202214828.GA284@Bagpuss.unfortu.net>

[ 18260]
Document that $ENV{TERM} may produce taint failures.
Subject: Re: [perl #18717] spurious failures in regression test
From: Slaven Rezic <slaven.rezic@berlin.de>
Date: 29 Nov 2002 22:11:46 +0100
Message-ID: <87hee0nkrx.fsf@vran.herceg.de>

[ 18261]
Change the set of characters that are considered to be
safe in $ENV{TERM} for taint checkings.

[ 18262]
getservbyport() should accept an empty string as its
proto argument (as does getservbyname()).

Subject: Re: Is this a bug or am I being stupid?
From: Slaven Rezic <slaven.rezic@berlin.de>
Date: 08 Dec 2002 01:54:37 +0100
Message-ID: <87znrhl48i.fsf@vran.herceg.de>

[ 18263]
Subject: Re: [perl #18888] $Exporter::Verbose=1 does not work for testing, $Heavy::Verbose is not setting the value to $Exporter::Verbose
From: Slaven Rezic <slaven.rezic@berlin.de>
Date: 08 Dec 2002 01:31:45 +0100
Message-ID: <874r9pmjv2.fsf@vran.herceg.de>

[ 18264]
Subject: Re: [perl #18165] "0" fails as right-hand argument to ..
From: Slaven Rezic <slaven.rezic@berlin.de>
Date: 30 Nov 2002 00:07:05 +0100
Message-ID: <8765ugnffq.fsf@vran.herceg.de>

[ 18265]
Subject: Re: [perl #18927] barewords with no errors
From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sun, 8 Dec 2002 17:12:56 +0100
Message-Id: <200212081712.56102.abe@ztreet.demon.nl>

[ 18266]
Subject: Re: [perl #18107] lc(), uc() and ucfirst() broken inside utf8 regex
From: Abhijit Menon-Sen <ams@wiw.org>
Date: Wed, 6 Nov 2002 19:38:11 +0530
Message-ID: <20021106193811.E20858@lustre.dyn.wiw.org>

[ 18267]
Subject: Re: [perl #18238] timezone and gmt offset as output by POSIX::strftime()  are sometimes wrong
From: Slaven Rezic <slaven.rezic@berlin.de>
Date: 09 Nov 2002 23:21:16 +0100
Message-ID: <874raqz8o3.fsf@vran.herceg.de>

[ 18268]
fix #18266 sprintf format mismatch

[ 18269]
Subject: Re: Bug in Filter::Simple
From: Slaven Rezic <slaven.rezic@berlin.de>
Date: 07 Nov 2002 10:01:41 +0100
Message-ID: <87of91u51m.fsf@vran.herceg.de>

[ 18270]
Subject: [perl #18256] xsubpp can make nested comments in C code
From: Nicholas Clark (via RT) <perlbug@perl.org>
Date: 7 Nov 2002 14:58:14 -0000
Message-Id: <rt-18256-41218.19.7625495305233@bugs6.perl.org>

(plus regen Configure)
p4raw-link: @18270 on //depot/perl: 1c2605ddeb2b70e312d1adf987f9c25ebbe9410b
p4raw-link: @18269 on //depot/perl: 57a224e5764ead7e57b81a85c1724954c2c08e39
p4raw-link: @18268 on //depot/perl: d994d9a1b8a73bc9fe2d24db293df04097139d91
p4raw-link: @18267 on //depot/perl: c473feecc28308679db0cf6f8fc1f902de2584d6
p4raw-link: @18266 on //depot/perl: ada6e8a992d3696f2a5e84c5e93d2fce8998ecfb
p4raw-link: @18265 on //depot/perl: 3b9d212931c328bf8f0ad8c51694e8b569ec046e
p4raw-link: @18264 on //depot/perl: f3fd7796410b671022d50f0c339d72cecaf4eef7
p4raw-link: @18263 on //depot/perl: e336476d0b01e142c1024f208616adee0159940b
p4raw-link: @18262 on //depot/perl: 2b872ccad44e83808aafa1913f65a140f4c316a7
p4raw-link: @18261 on //depot/perl: d085cc716f2bb280bae09a8c1f4d4c39396a0635
p4raw-link: @18260 on //depot/perl: 332d5f78c71e403169f58124c6048eb8b60a8d71
p4raw-link: @18259 on //depot/perl: 015a5f36be663aa2533aa485ced211ebada3b063
p4raw-link: @18251 on //depot/perl: 8edd5f42cf54cdbf0218037ce0d38a9e2e2d58d9
p4raw-link: @18250 on //depot/perl: a33bf49bf7b1088ee6ac580e9e39716ad87ae72a
p4raw-link: @18249 on //depot/perl: 1d239bbba2de439a8971f5436d867599b62848c8
p4raw-link: @11890 on //depot/perl: be154528f7e7dc31589b7b72d4e03f88d8751799

p4raw-id: //depot/maint-5.8/perl@18271
p4raw-edited: from //depot/perl@18258 'ignore' config_h.SH (@18030..)
p4raw-integrated: from //depot/perl@18258 'copy in' t/cmd/for.t
	(@10069..) ext/Filter/t/call.t (@11434..)
	ext/Filter/Util/Call/Call.xs (@12972..) taint.c (@15155..)
	lib/Hash/Util.t (@15926..) lib/English.t (@16942..)
	lib/English.pm (@17131..) ext/POSIX/t/posix.t (@17822..)
	t/lib/strict/subs (@17934..) lib/Exporter/Heavy.pm (@17988..)
	t/comp/parser.t (@18233..) 'edit in' toke.c (@18249..) 'merge
	in' t/op/lc.t (@14667..) hv.c (@17740..) lib/ExtUtils/xsubpp
	(@17832..) pp_sys.c (@18120..) pp_ctl.c (@18220..) util.c
	(@18225..) pod/perldiag.pod (@18233..) regcomp.c (@18266..)

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index e3c74c6433..7a8842e748 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1664,11 +1664,11 @@ PP(pp_enteriter)
 	cx->blk_loop.iterary = (AV*)SvREFCNT_inc(POPs);
 	if (SvTYPE(cx->blk_loop.iterary) != SVt_PVAV) {
 	    dPOPss;
+	    /* See comment in pp_flop() */
 	    if (SvNIOKp(sv) || !SvPOKp(sv) ||
 		SvNIOKp(cx->blk_loop.iterary) || !SvPOKp(cx->blk_loop.iterary) ||
 		(looks_like_number(sv) && *SvPVX(sv) != '0' &&
-		 looks_like_number((SV*)cx->blk_loop.iterary) &&
-		 *SvPVX(cx->blk_loop.iterary) != '0'))
+		 looks_like_number((SV*)cx->blk_loop.iterary)))
 	    {
 		 if (SvNV(sv) < IV_MIN ||
 		     SvNV((SV*)cx->blk_loop.iterary) >= IV_MAX)