undef.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
chdir 't' if -d 't';
}
print "1..27\n";
print defined($a) ?
"not ok 1\n" :
"ok 1\n";
$a = 1+1;
print defined($a) ?
"ok 2\n" :
"not ok 2\n";
print defined($a) ?
"not ok 3\n" :
"ok 3\n";
$a = "hi";
print defined($a) ?
"ok 4\n" :
"not ok 4\n";
$a = $b;
print defined($a) ?
"not ok 5\n" :
"ok 5\n";
print defined($a) ?
"ok 6\n" :
"not ok 6\n";
print defined($a) ?
"not ok 7\n" :
"ok 7\n";
print defined($a) ?
"ok 8\n" :
"not ok 8\n";
print defined($a) ?
"not ok 9\n" :
"ok 9\n";
print defined($ary{'foo'}) ?
"ok 10\n" :
"not ok 10\n";
print defined($ary{'bar'}) ?
"not ok 11\n" :
"ok 11\n";
print defined($ary{'foo'}) ?
"not ok 12\n" :
"ok 12\n";
sub foo { print "ok 19\n"; }
&
foo ||
print "not ok 19\n";
{
}
{
}