#!perl -w
$|=1;
BEGIN {
print "1..0\n";
exit 0;
}
}
use Safe 1.00;
# check basic argument passing and context for anon-subs
# uses quotes in { "$a" <=> $b } to avoid the optimizer replacing the block
# with a hardwired comparison
# check other aspects of closures created inside Safe
# check $@ not affected by successful call
$@ = 42;
{
my $warns = 0;
}