args.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
require './test.pl';
# test various operations on @_
{
}
{
}
{
}
{
}
# see if POPSUB gets to see the right pad across a dounwind() with
# a reified @_
sub methimpl {
my $refarg = \@_;
}
sub method {
&methimpl;
}
sub try {
print "# $@" if $@;
}
# bug #21542 local $_[0] causes reify problems and coredumps
sub local1 { local $_[0] }
L: { local2 }
# blead has 9 tests for local(@_) from in t/op/nothr5005.t inserted here
# [perl #28032] delete $_[0] was freeing things too early
{
my $flag = 0;
sub f {
delete $_[0];
}
{
f($x);
}
}