4 $SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
8 "no dynamic loading on miniperl, no Tie::Hash::NamedCapture"
16 # Test for bug [perl #27839]
24 "pqrstuvwxyz" =~ /..(....)../; # prime @+ etc in this scope
26 is $x, "@y", "return a magic array ($x) vs (@y)";
29 "abc" =~ /(?<foo>.)./;
35 is $x, "@y", "return a magic hash ($x) vs (@y)";