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