10 die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
17 print "ok 2\n","ok 3\n","ok 4\n";
18 print STDOUT "ok 5\n";
26 my @a = ("ok %d%c",9,ord("\n"));
37 my @x = ("ok","12\nok","13\nok");
38 my @y = ("15\nok","16");
41 local $\ = "ok 17\n# null =>[\000]\nok 18\n";
47 if (!exists &Errno::EBADF) {
48 print "ok 19 # skipped: no EBADF\n";
51 no warnings 'unopened';
52 print NONEXISTENT "foo";
53 print "not " if ($! != &Errno::EBADF);
58 # Change 26009: pp_print didn't extend the stack
59 # before pushing its return value
60 # to make sure only that these obfuscated sentences will not crash.
62 map print(reverse), ('')x68;
65 map print(+()), ('')x68;