Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

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 drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2015-11-24 23:10 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (665 votes), past polls