universal.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
#
# check UNIVERSAL
#
BEGIN {
chdir 't' if -d 't';
$| = 1;
}
print "1..80\n";
$a = {};
bless $a, "Bob";
print "ok 1\n";
sub eat {}
sub drink {}
{
}
{
sub write_perl { 1 }
}
my $i = 2;
{
}
my $b = 'abc';
};
};
} else {
}
# now use UNIVERSAL.pm and see what changes
eval "use UNIVERSAL";
# XXX import being here is really a bug
} else {
}
eval 'sub UNIVERSAL::sleep {}';