[libconfig-model-dpkg-perl] 07/11: Scanner: simplified test

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit 98dde441db182847b75038f0cb18bc7c783af0df
Author: Dominique Dumont <dod at debian.org>
Date:   Thu Jul 2 21:26:59 2015 +0200

    Scanner: simplified test
    
    Gbp-Dch: Ignore
---
 lib/Dpkg/Copyright/Scanner.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Dpkg/Copyright/Scanner.pm b/lib/Dpkg/Copyright/Scanner.pm
index 20d3191..07ebdc0 100644
--- a/lib/Dpkg/Copyright/Scanner.pm
+++ b/lib/Dpkg/Copyright/Scanner.pm
@@ -256,7 +256,7 @@ sub __pack_dir ($h, $pack, @path) {
 sub __squash_copyrights_years ($copyrights_by_id) {
 
     my %id_year_by_same_owner_license;
-    for (my $id = 0; $id <= $copyrights_by_id->$#* ; $id++ ) {
+    for (my $id = 0; $id < $copyrights_by_id->@* ; $id++ ) {
         my ($c,$l) = $copyrights_by_id->[$id]->@* ;
         #say "id $id: c $c l $l";
         my @owners ;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git