Found it. Just reverse the order of the tests. Instead of
($x eq 'T') && next if value_in_list( $u, @listA );
use
value_in_list( $u, @listA ) && next if ($x eq 'T');
Can you say "counter-intuitive"???
Thanks for making me turn up the power dial on the ol' thinking cap!
Deane Rothenmaier
Systems Architect
Walgreens Corp.
847-914-5150
"On two occasions I have been asked [by members of Parliament], 'Pray, Mr.
Babbage, if you put into the machine wrong figures, will the right answers
come out?' I am not able rightly to apprehend the kind of confusion of
ideas that could provoke such a question." -- Charles Babbage_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
