X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=lib%2FSub%2FNary.pm;h=3a0b00097b305393648f75290be32933e4d13f78;hp=f408f8c50ff5fdd31d42ab622e401c8a8b4cf329;hb=94abb82a3fbe010a38413500797bbdb4d373e016;hpb=1a31caf5f555fb5f0b63ac682c7ea4b542282186 diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm index f408f8c..3a0b000 100644 --- a/lib/Sub/Nary.pm +++ b/lib/Sub/Nary.pm @@ -304,7 +304,7 @@ sub expect_any { return $self->expect_list($op); } -# Stolen from Sub::Deparse +# Stolen from B::Deparse sub padval { $_[0]->{cv}->[0]->PADLIST->ARRAYelt(1)->ARRAYelt($_[1]) }