"Undefined subroutine &main:: called." from nowhere??

[Matthias Urlichs]

This happens when my program ends:

$ perl -d tools/dbdiff [..arguments..]
[... set break on last line of tools/dbdiff ...]
[... c ...]
[... various regular no-error program output ...]
main:tools/dbdiff:449): print STDERR "Exiting\n";
DB<2> s
Exiting
Undefined subroutine &main:: called.
END failed--call queue aborted at tools/dbdiff line 1.
Dbase::CODE(0x8633f44)(/opt/ess/pp01/src/datenbank/dbperl/Dbase.pm:859):
859: print STDERR "PreEnd1\n";

OK. Needless to say, line 1 contains of "#!/usr/bin/perl" and nothing else.

So which *CENSORED* unsinglesteppable part of Perl decided to do this??

$ perl -v
This is perl, v5.8.4 built for i386-linux-thread-multi

Any help on where to dig further would be appreciated.

 

[Matthias Urlichs]

Addendum:

Exiting

.... and it stops here (endless loop, non-interruptible) when I do this
with PERLDB_OPTS="NonStop AutoTrace".

Time to recompile with debugging support. With my luck the problem will
then go away.

 

[Matthias Urlichs]

Hi, Matthias Urlichs wrote:

Addendum2:

Time to recompile with debugging support. With my luck the problem will
then go away.

debugperl -DltorDRJ reported:
[... LOTS ...]
(tools/dbdiff:449) print
Exiting
(tools/dbdiff:449) leave
(tools/dbdiff:0) POPBLOCK scope 2 at pp_hot.c:1800
Leaving block 0, type BLOCK
(tools/dbdiff:0) LEAVE scope 2 at pp_hot.c:1837
(tools/dbdiff:0) LEAVE scope 1 at perl.c:2257
(tools/dbdiff:0) Setting up jumplevel bffff5d0, was bffffa10
(tools/dbdiff:0) ENTER scope 1 at perl.c:2126
(tools/dbdiff:0) ENTER scope 2 at perl.c:2176
Entering block 0, type EVAL
(tools/dbdiff:0) Setting up jumplevel bffff430, was bffff5d0

.... and here it exits.

Interesting. :-/