bproto.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
#
# check if builtins behave as prototyped
#
BEGIN {
chdir 't' if -d 't';
}
print "1..10\n";
my $i = 1;
sub foo {}
my $bar = "bar";
sub test_too_many {
eval $_[0];
}
sub test_no_error {
eval $_[0];
print "not " if $@;
}
];
];