diff options
| author | Slaven Rezic <slaven@rezic.de> | 2002-11-30 01:07:05 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-12-08 22:04:39 +0000 |
| commit | f3fd7796410b671022d50f0c339d72cecaf4eef7 (patch) | |
| tree | b30f08bab8a7418fd6113037f8da41f818b727ef /t/cmd | |
| parent | e336476d0b01e142c1024f208616adee0159940b (diff) | |
| download | perl-f3fd7796410b671022d50f0c339d72cecaf4eef7.tar.gz | |
Re: [perl #18165] "0" fails as right-hand argument to ..
Message-ID: <8765ugnffq.fsf@vran.herceg.de>
p4raw-id: //depot/perl@18264
Diffstat (limited to 't/cmd')
| -rwxr-xr-x | t/cmd/for.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/cmd/for.t b/t/cmd/for.t index 90b5ff0b4f..3275c71d2a 100755 --- a/t/cmd/for.t +++ b/t/cmd/for.t @@ -1,6 +1,6 @@ #!./perl -print "1..11\n"; +print "1..12\n"; for ($i = 0; $i <= 10; $i++) { $x[$i] = $i; @@ -66,3 +66,8 @@ foreach $b (bar()) { } print $a == 7 ? "ok" : "not ok", " 11\n"; +$loop_count = 0; +for ("-3" .. "0") { + $loop_count++; +} +print $loop_count == 4 ? "ok" : "not ok", " 12\n"; |