Package: libdpkg-perl
Version: 1.16.3
Severity: minor
Tags: patch
Hi,
As the subject says:
"""
$ env -uHOME dpkg-source -x lintian_2.5.7.dsc
Use of uninitialized value $ENV{"HOME"} in concatenation (.) or string at
/usr/share/perl5/Dpkg/Source/Package.pm line 351.
dpkg-source: info: extracting lintian in lintian-2.5.7
dpkg-source: info: unpacking lintian_2.5.7.tar.gz
"""
Please see attached patch as a possible solution.
~Niels
diff --git a/scripts/Dpkg/Source/Package.pm b/scripts/Dpkg/Source/Package.pm
index 491a88d..97cd752 100644
--- a/scripts/Dpkg/Source/Package.pm
+++ b/scripts/Dpkg/Source/Package.pm
@@ -349,7 +349,7 @@ sub check_signature {
push @exec, "gpg", "--no-default-keyring", "-q", "--verify";
}
if (scalar(@exec)) {
- if (-r "$ENV{'HOME'}/.gnupg/trustedkeys.gpg") {
+ if (defined $ENV{'HOME'} and -r "$ENV{'HOME'}/.gnupg/trustedkeys.gpg") {
push @exec, "--keyring", "$ENV{'HOME'}/.gnupg/trustedkeys.gpg";
}
foreach my $vendor_keyring (run_vendor_hook('keyrings')) {
