On 1 Dec 2004, at 07:16, Jan Bauer Nielsen wrote:

Tried that but I keep getting empty lines

[Wed Dec 1 08:12:15 2004] [warn] [client xxx.xxx.xxx.xxx] [AxKit] after eval:

in the error log, even if the add_entry method looks like this:

sub add_entry {
    my ($self) = shift;

    die "SH DEBUG";
}

When I run a custom test script from the command line I get:

% perl test/test_history.pl
SH DEBUG at home/dmas/perl/lib/Find/test/../../Find/Repository/SearchHistory.pm line 110.


I think this is very strange.

It's related to $SIG{__DIE__} handlers. Try just doing:

  local $SIG{__DIE__} = 'DEFAULT';

in there. You shouldn't *have* to do that, but it's very hard to track down where $SIG{__DIE__} is being erroneously set.

Matt.


--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]



Reply via email to