Hmm.... is this such a good thing?
my $a = 0;
GORK: while( 1 ) {
print "Rin ";
GORK: if ( 1 ) {
print "Tin ";
goto GORK if $b ^= 1;
print "\n";
next GORK;
}
}
--
Bryan C. Warnock
bwarnock@capita.com
Thread Next