1N/A chdir 't' if -d 't'; 1N/A# test various operations on @_ 1N/A# see if POPSUB gets to see the right pad across a dounwind() with eval { method('foo', 'bar'); }; # bug #21542 local $_[0] causes reify problems and coredumps print "got [$foo], expected [foo]\nnot " if $foo ne 'foo'; # blead has 9 tests for local(@_) from in t/op/nothr5005.t inserted here # [perl #28032] delete $_[0] was freeing things too early ok(!$flag, 'delete $_[0] : after f'); ok($flag, 'delete $_[0] : outside block');