There's no need for %packagelist to be a space-delimited list of bug

[bugscan.git] / scanlib.pm

diff --git a/scanlib.pm b/scanlib.pm
index f7b4bd1199e5a4dc64b75ecba95bac99913fe9c8..2b905c43996d3991c1710e09e1569c5d03757c38 100644 (file)
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -265,7 +265,7 @@ sub scanspooldir() {
                                }
                        }
 
-                       $packagelist{$_} .= " $f";
+                       push @{$packagelist{$_}}, $f;
                }
 
                if ($relinfo eq "") { # or $relinfo eq "U" # confuses e.g. #210306
@@ -294,7 +294,7 @@ sub readstatus() {
                if (m/^[0-9]+ \[/) {
                        ($bug,$subject)=split(/ /, $_, 2);
                        $bugs{$bug}=$subject;
-                       $packagelist{$pkg} .= "$bug ";
+                       push @{$packagelist{$pkg}}, $bug;
                } else {
                        ($pkg,$sect, $mnt)=split(/ /, $_, 3);
                        $section{$pkg}=$sect;