Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Trying to understand (caller($i))[4], a.k.a. $hasargs [solution]

by ikegami (Pope)
on Feb 14, 2012 at 06:47 UTC ( #953634=note: print w/ replies, xml ) Need Help??

in reply to Trying to understand (caller($i))[4], a.k.a. $hasargs

I believe the problem can be solved by changing

my @caller = CORE::caller($i++) or return;
my @caller = CORE::caller() eq 'DB' ? do { package DB; CORE::caller($i++) } : CORE::caller($i++) or return;

Comment on Re: Trying to understand (caller($i))[4], a.k.a. $hasargs [solution]
Select or Download Code
Replies are listed 'Best First'.
Re^2: Trying to understand (caller($i))[4], a.k.a. $hasargs [solution]
by Oberon (Monk) on Feb 14, 2012 at 08:18 UTC

    Excellent! Yes, that stops the error entirely. I'll submit it to DC as a patch. Thanks for the code.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://953634]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2016-02-11 05:39 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (359 votes), past polls