Here's my current headache.
print $Foo; # prints 0
FOO: {
foo();
print $Foo; # prints 1
}
print $Foo; # prints 0
I want the above code to somehow work as commented. By some magic way
of writing foo() and manipulating $Foo and using the FOO label you get
$Foo to reset itself to 0 at the end of the FOO block.
Abigail's End trick won't work here, I don't want to have to say:
FOO: {
my $magic = foo();
}
If you're curious about the whole problem, read the "Problems with the
skip interface" on Perl QA. http:[EMAIL PROTECTED]/
It's for the todo tests.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Schwern Unit: a positive but insignificant quantity
