Package: libdpkg-perl
Version: 1.20.5
Severity: normal

Dear Maintainer,

when building tomcat9 package using gbp-buildpackage in an unstable
pbuilder/cowbuilder environment I got an unexpected exception when
dpkg-source tries to load an vendor. I'm on a Devuan System with 
/etc/dpkg/origins/devuan which is also linked as 'default'. However my
does not have a file /usr/share/perl5/Dpkg/Vendor/Devuan.pm.

Having looked at the code, I think the intention was to load
the 'Parent' Vendor if no specific $vendor.pm file was found. In this
case /etc/dpkg/origins/devuan has content:

Vendor: Devuan
Vendor-URL: https://www.devuan.org/
Bugs: debbugs://bugs.devuan.org
Parent: Debian

I don't know why, but the exception within the 'eval' block seems not to
be caught and causes dpkg-source to exit with error code 127 but without any
message. Here is the stack trace of perl debugger:

DB<9> T
@ = DB::DB called from file '/usr/share/perl5/Dpkg/Exit.pm' line 82
$ = Dpkg::Exit::_exit_handler('Can\'t locate Dpkg/Vendor/Devuan.pm in @INC (you 
may need to install the Dpkg::Vendor::Devuan module) (@INC contains: /etc/perl 
/usr/local/lib/x86_64-linux-gnu/perl/5.30.3 /usr/local/share/perl/5.30.3 
/usr/lib/x86_64-linux-gnu/perl5/5.30 /usr/share/perl5 
/usr/lib/x86_64-linux-gnu/perl-base /usr/lib/x86_64-linux-gnu/perl/5.30 
/usr/share/perl/5.30 /usr/local/lib/site_perl) at (eval 36)[/usr/sha... called 
from file '(eval 36)[/usr/share/perl5/Dpkg/Vendor.pm:164]' line 3
. = eval '
            pop @INC if $INC[-1] eq \'.\';
            require Dpkg::Vendor::Devuan;
            $obj = Dpkg::Vendor::Devuan->new();
        ' called from file '/usr/share/perl5/Dpkg/Vendor.pm' line 164
$ = Dpkg::Vendor::get_vendor_object() called from file 
'/usr/share/perl5/Dpkg/Vendor.pm' line 190
. = Dpkg::Vendor::run_vendor_hook('post-process-changelog-entry', 
ref(Dpkg::Control::Changelog)) called from file 
'/usr/share/perl5/Dpkg/Changelog.pm' line 548
@ = Dpkg::Changelog::_format_dpkg(ref(Dpkg::Changelog::Debian), ref(HASH)) 
called from file '/usr/share/perl5/Dpkg/Changelog.pm' line 653
@ = Dpkg::Changelog::format_range(ref(Dpkg::Changelog::Debian), 'dpkg', 
ref(HASH)) called from file '/usr/share/perl5/Dpkg/Changelog/Parse.pm' line 141
$ = Dpkg::Changelog::Parse::changelog_parse('offset', 0, 'count', 1, 'file', 
'tomcat9-9.0.37/debian/changelog') called from file 
'/usr/share/perl5/Dpkg/Source/Package/V2.pm' line 616
@ = 
Dpkg::Source::Package::V2::_get_patch_header(ref(Dpkg::Source::Package::V3::Quilt),
 'tomcat9-9.0.37') called from file 
'/usr/share/perl5/Dpkg/Source/Package/V2.pm' line 488
$ = 
Dpkg::Source::Package::V2::_generate_patch(ref(Dpkg::Source::Package::V3::Quilt),
 'tomcat9-9.0.37', 'order_from', 
'tomcat9-9.0.37/debian/patches/debian-changes-9.0.37-1+devuan1', 'header_from', 
'tomcat9-9.0.37/debian/patches/debian-changes-9.0.37-1+devuan1', 
'handle_binary', ref(CODE), 'skip_auto', 0, 'usage', 'build') called from file 
'/usr/share/perl5/Dpkg/Source/Package/V2.pm' line 558
. = Dpkg::Source::Package::V2::do_build(ref(Dpkg::Source::Package::V3::Quilt), 
'tomcat9-9.0.37') called from file 
'/usr/share/perl5/Dpkg/Source/Package/V3/Quilt.pm' line 217
. = 
Dpkg::Source::Package::V3::Quilt::do_build(ref(Dpkg::Source::Package::V3::Quilt),
 'tomcat9-9.0.37') called from file '/usr/share/perl5/Dpkg/Source/Package.pm' 
line 606
. = Dpkg::Source::Package::build(ref(Dpkg::Source::Package::V3::Quilt), 
'tomcat9-9.0.37') called from file '/usr/bin/dpkg-source' line 433
DB<9>

-- Package-specific info:

-- System Information:
Distributor ID: Debian
Description:    Devuan GNU/Linux 3 (ceres)
Release:        3
Codename:       ceres
Architecture: x86_64

Kernel: Linux 5.4.8-amesser (SMP w/8 CPU cores)
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8), LANGUAGE= 
(charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Init: sysvinit (via /sbin/init)

Versions of packages libdpkg-perl depends on:
ii  dpkg  1.20.5
ii  perl  5.30.3-4


-- 
gnuPG keyid: 8C2BAF51
fingerprint: 28EE 8438 E688 D992 3661 C753 90B3 BAAA 8C2B AF51

Attachment: signature.asc
Description: PGP signature

Reply via email to