What kind of semantics do we want for perl6, if we have:
my $fh1 = fdopen( $n );
do {
my $fh2 = fdopen( $n );
};
# is $fh1 valid or not at this point?
For that matter, what about:
for(1..2) {
my $fh = fdopen( $n ); # does this succed the second time?
}
Should these semantics be different depending on whether 0 <= $n <= 2 ?
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "[EMAIL PROTECTED]
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
