Bug#580356: CGI::Carp works incorrectly if we have an exception in a package of one of parents

[Dmitry E. Oboukhov]

Package: perl-modules
Version: 5.10.0-19lenny2

Hi, Maintainers!

Today I've found an unpleasant bug in CGI::Carp.
In attache You can find test script showing the problem.
If we have more than one packages in parent list, and one of them
throws an exception from BEGIN section, CGI::Carp can't detect $@
error-text properly.

If You start test.pl You will see the following error-text:

    ...

    [Wed May  5 15:33:31 2010] test.pl: Died at /usr/share/perl/5.10/base.pm line 93.
    [Wed May  5 15:33:31 2010] test.pl: BEGIN failed--compilation aborted at Package1.pm line 5.
    Compilation failed in require at test.pl line 11.


If You comment text 'use CGI::Carp' You can see the following text:

    123 at Package3.pm line 12.
    Compilation failed in require at (eval 3) line 3.
            ...propagated at /usr/share/perl/5.10/base.pm line 93.
    BEGIN failed--compilation aborted at Package1.pm line 5.
    Compilation failed in require at test.pl line 11.

This bug appears only if we have more than one packages in parent-list.

-- 
... mpd is off

. ''`.                               Dmitry E. Oboukhov
: :’  :   email: unera at debian.org jabber://UNera@uvw.ru
`. `~’              GPGKey: 1024D / F8E26537 2006-11-21
  `- 1B23 D4F8 8EC0 D902 0555  E438 AB8C 00CF F8E2 6537
-------------- next part --------------
A non-text attachment was scrubbed...
Name: eval.tgz
Type: application/x-gtar
Size: 417 bytes
Desc: not available
URL: <http://lists.alioth.debian.org/pipermail/perl-maintainers/attachments/20100505/704310f6/attachment.tgz>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: Digital signature
URL: <http://lists.alioth.debian.org/pipermail/perl-maintainers/attachments/20100505/704310f6/attachment.pgp>