Oops, a bug there in the space-to-array conversion.

[bugscan.git] / cleancomments

diff --git a/cleancomments b/cleancomments
index b62e8ed4144f45bb9f633b42a5bff526d61dae0a..7b9f2897425b59a619afa716d1c2c55bfdf9eeb4 100755 (executable)
--- a/cleancomments
+++ b/cleancomments
@@ -41,7 +41,7 @@ $commentfile=$opt_C if ($opt_C);
 &readcomments($commentfile);
 
 for $p (keys %packagelist) {
-       for $nr (split(/ /, $packagelist{$p})) {
+       for my $nr (@{$packagelist{$p}}) {
                $found{$nr}=1;
        }
 }