Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: bizarre Carp

by runrig (Abbot)
on May 09, 2012 at 22:53 UTC ( #969714=note: print w/ replies, xml ) Need Help??


in reply to bizarre Carp

Bizarre copy of ARRAY in sassign at C:/progfile/Perl-5.8.8/lib/Carp/Heavy.pm line 45.

This also manifests itself as: "panic: attempt to copy freed scalar"

Patch for Carp in case anyone is interested. Find the call to format_arg in Carp.pm or Carp/Heavy.pm (depending on version), and replace with (prefix @args with my depending on version also. E.g. in 5.8.8 it's "my @args" in Heavy.pm, in 5.14.1 it's just "@args" in Carp.pm):

@args = map { local $@; my $tmp = eval { Carp::format_arg($_) }; defined($tmp) ? $tmp : 'unknown'; } @DB::args;
And now instead of an unhelpful error message referring to a line in Carp, you'll get the stack trace you wanted, albeit with one or more 'unknown' arguments shown in the function calls.


Comment on Re: bizarre Carp
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (12)
As of 2015-07-31 04:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (274 votes), past polls