Bug#1092950: libconfig-model-dpkg-perl: scan-copyrights fails on util-linux

[Walter Lozano]

Package: libconfig-model-dpkg-perl
Version: 3.008
Severity: normal

Dear Maintainer,

I noticed that when I run scan-copyrights on package util-linux it crashes with
the following error

Can't use an undefined value as an ARRAY reference at
/usr/share/perl5/Dpkg/Copyright/Grant/ByFile.pm line 116.

As a workaround I have used

diff --git a/lib/Dpkg/Copyright/Grant/ByFile.pm
b/lib/Dpkg/Copyright/Grant/ByFile.pm
index d0938139..31ef1056 100644
--- a/lib/Dpkg/Copyright/Grant/ByFile.pm
+++ b/lib/Dpkg/Copyright/Grant/ByFile.pm
@@ -113,6 +113,10 @@ sub push_file_hash ($self, $hash, @files) {

 sub move_file_grant ($self, $from_hash, $to_hash, $to_grant) {
     $logger->trace("move_file_grant from $from_hash to $to_hash");
+    if (ref($self->get_hash_files($from_hash)) ne 'ARRAY'){
+        $self->_warn("Warning: invalid reference, skipping");
+        return;
+    }
     my @file_list = $self->get_hash_files($from_hash)->@*;
     foreach my $file (@file_list) {
         $logger->trace("Moving file $file from $from_hash to $to_hash...");

but hopefully you will provide a better solution.

Thanks in advance.


-- System Information:
Debian Release: trixie/sid
  APT prefers noble-updates
  APT policy: (500, 'noble-updates'), (500, 'noble-security'), (500, 'noble'), (100, 'noble-backports')
Architecture: amd64 (x86_64)
Foreign Architectures: i386

Kernel: Linux 6.8.0-48-generic (SMP w/8 CPU threads; PREEMPT)
Kernel taint flags: TAINT_FIRMWARE_WORKAROUND, TAINT_OOT_MODULE, TAINT_UNSIGNED_MODULE
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8), LANGUAGE not set
Shell: /bin/sh linked to /usr/bin/dash
Init: systemd (via /run/systemd/system)
LSM: AppArmor: enabled

Versions of packages libconfig-model-dpkg-perl depends on:
ii  debhelper                          13.14.1ubuntu5
ii  libapt-pkg-perl                    0.1.40build7
ii  libarray-intspan-perl              2.004-2
ii  libconfig-model-backend-yaml-perl  2.134-2
ii  libconfig-model-perl               2.153-3
ii  libexporter-lite-perl              0.09-2
ii  liblog-log4perl-perl               1.57-1
ii  libmouse-perl                      2.5.10-1build8
ii  libparse-debcontrol-perl           2.005-6
ii  libparse-recdescent-perl           1.967015+dfsg-4
ii  libsoftware-copyright-perl         0.012-2
ii  libsoftware-licensemoreutils-perl  1.009-1
ii  libsort-versions-perl              1.62-3
ii  libtext-autoformat-perl            1.750000-2
ii  libtext-levenshtein-damerau-perl   0.41-3
ii  libtoml-tiny-perl                  0.16-1
ii  liburi-perl                        5.27-1
ii  libwww-perl                        6.76-1
ii  libyaml-pp-perl                    0.38.0-1
ii  licensecheck                       3.3.9-1ubuntu1
ii  lintian                            2.117.0ubuntu1.2
ii  perl [libmodule-corelist-perl]     5.38.2-3.2build2

Versions of packages libconfig-model-dpkg-perl recommends:
ii  libconfig-model-tkui-perl  1.379-1

libconfig-model-dpkg-perl suggests no packages.

-- no debconf information