Re^2: panic: attempt to copy freed scalar a7b9650 to ad20598

The sample was not quite right. The sub "dave" is a generic sub which calls a procedure with DBD::Oracle. The call to "dave" in the example does fail but what is missing from the example is that the catch also may call "dave" but with a different procedure name. This is closer:

use Try::Tiny;
use Log::Log4perl qw(get_logger :levels);
Log::Log4perl->init_and_watch('/etc/log4.conf', 60);
my $log = get_logger('Q::S');

fred();

sub fred
{
    my $x = try {
        # dave dies in the cases we get the panic
        dave('proc1', {}, 'arg1', 'arg2');
        0;
    } catch {
        my $ev = $_;
        if ($sometimes) { # sometimes goes this path and sometimes the
+ else
            eval {
                dave('proc2', {}, 'arg1', 'arg2');
                1;
            } or $log->warn("failed $@");
        } else {
            $log->logwarn("test $_");
        }
        1;
   };
   print "$x\n";
   return if $x;  # <---- this would be q.pl line 1895
}

sub dave
{
   # the following line would be DB.pm line 1380
   my ($sth, $options, @args) = @_;
}
[download]

Comment on Re^2: panic: attempt to copy freed scalar a7b9650 to ad20598 Download Code

Replies are listed 'Best First'.
Re^3: panic: attempt to copy freed scalar a7b9650 to ad20598 by runrig (Abbot) on Dec 03, 2009 at 17:39 UTC
Re: trying to get a simple test case - After trying a simple die in dave(), try doing something simple in DBI, like selecting from a table that doesn't exist, with RaiseError set so that it dies. And with the variables scoped as closely as possible to that of your original program.	[reply]
Re^3: panic: attempt to copy freed scalar a7b9650 to ad20598 by BrowserUk (Patriarch) on Dec 03, 2009 at 17:05 UTC
What happens if you use `"test $ev"` instead?	[reply] [d/l]
Re^4: panic: attempt to copy freed scalar a7b9650 to ad20598 by mje (Curate) on Dec 03, 2009 at 17:09 UTC
Not sure what you mean by that.	[reply]
Re^5: panic: attempt to copy freed scalar a7b9650 to ad20598 by BrowserUk (Patriarch) on Dec 03, 2009 at 17:13 UTC
Does using `$ev` in place of `$_` in the last line of this snippet (in the real code) make any difference? `my $ev = $_; #### You set $ev = $_ here if ($sometimes) { # sometimes goes this path and sometimes the + else eval { dave('proc2', {}, 'arg1', 'arg2'); 1; } or $log->warn("failed $@"); } else { $log->logwarn("test $_"); #### But then use $_ here` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "I'd rather go naked than blow up my ass"	[reply] [d/l] [select]
Re^6: panic: attempt to copy freed scalar a7b9650 to ad20598 by mje (Curate) on Dec 03, 2009 at 17:23 UTC