Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!gem.mps.ohio-state.edu!pacific.mps.ohio-state.edu!tut.cis.ohio-state.edu!ucsd!nosc!!dennis
From: dennis@ (Dennis Cottel)
Newsgroups: comp.sources.bugs
Subject: Perl V3 bug: repeated tests
Message-ID: <1451@nosc.NOSC.MIL>
Date: 25 Oct 89 23:17:42 GMT
Sender: nobody@nosc.NOSC.MIL
Lines: 26

There's a bug in Perl3.0, related, I think, to the new optimization
for repeated tests on the same variable.  Things quit working in
mysterious ways if you have a construction like:

	if ( $i = 1 ) {...}
	if ( $i = 2 ) {...}
	if ( $i = 3 ) {...}
	if ( $i = 4 ) {...}
	...

This breaks if you have 3 or more tests.  You can get around the
problem by doing something like:

	if ( $i = 1 ) {...}
	if ( $i = 2 ) {...}
$kludge++;
	if ( $i = 3 ) {...}
	if ( $i = 4 ) {...}
	...

to avoid having more than 2 tests in a row.

I have reported this to Larry Wall.

	Dennis Cottel  Naval Ocean Systems Center, San Diego, CA  92152
	(619) 553-1645      dennis@nosc.MIL      sdcsvax!noscvax!dennis