From: Vincent Pit Date: Mon, 4 Aug 2008 21:11:07 +0000 (+0200) Subject: We stole from B::Deparse, not Sub::Deparse X-Git-Tag: v0.02~19 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=commitdiff_plain;h=94abb82a3fbe010a38413500797bbdb4d373e016 We stole from B::Deparse, not Sub::Deparse --- 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]) }