in reply to panic: attempt to copy freed scalar a7b9650 to ad20598

Suggestion: In the real code, inside its equivalent of dave(), put 

sub dave {
    die;
...
}

[download]

Does that make the failure you are seeing occur?

What I'm getting at is does the attempt to copy freed only occur when dave() fails?

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.
RIP PCW It is as I've been saying!(Audio until 20090817)

Replies are listed 'Best First'.
Re^2: panic: attempt to copy freed scalar a7b9650 to ad20598
by mje (Curate) on Dec 03, 2009 at 17:01 UTC

    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]
[reply]
[d/l]
      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]

      What happens if you use "test $ev" instead?

[reply]
[d/l]

        Not sure what you mean by that.

[reply]

In Section Seekers of Perl Wisdom