exists_sub.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
print "1..9\n";
sub t1;
sub t3 ();
sub t4 ($);
sub t5 {1;}
{
sub tmc {1;}
@ISA = 'P1';
}
print "ok 1\n";
print "ok 2\n";
print "ok 3\n";
print "ok 4\n";
print "ok 5\n";
print "ok 6\n";
my $ref;
print "ok 7\n";
print "ok 8\n";
eval 'exists &t5()';
print "not " unless $@;
print "ok 9\n";
exit 0;