From ee6b43cc19efb39ed8a2fdad01d701e59dbdd946 Mon Sep 17 00:00:00 2001 From: chromatic Date: Thu, 31 Aug 2006 22:42:17 -0700 Subject: [PATCH] Add Index Numbers to caller() Docs Message-Id: <200609010542.17571.chromatic@wgz.org> p4raw-id: //depot/perl@28777 --- pod/perlfunc.pod | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index 8107310..1004837 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -623,15 +623,19 @@ returns the caller's package name if there is a caller, that is, if we're in a subroutine or C or C, and the undefined value otherwise. In list context, returns + # 0 1 2 ($package, $filename, $line) = caller; With EXPR, it returns some extra information that the debugger uses to print a stack trace. The value of EXPR indicates how many call frames to go back before the current one. + # 0 1 2 3 4 ($package, $filename, $line, $subroutine, $hasargs, + + # 5 6 7 8 9 10 $wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash) - = caller($i); + = caller($i); Here $subroutine may be C<(eval)> if the frame is not a subroutine call, but an C. In such a case additional elements $evaltext and -- 2.7.4