parse all changes

source-checker.pl

@@ -193,10 +193,13 @@ if (-d "$old") {
         rename("$spec.new", "$spec") || die "rename failed";
     }
 
+    chdir($dir);
+    my @changes = glob("*.changes");
     chdir($odir);
 
     if (%patches) {
         # parsing changes
+        for my $changes (@changes) {
             my $diff = diff "$old/$changes", "$dir/$changes";
             for my $line (split(/\n/, $diff)) {
                 next unless $line =~ m/^+/;
@@ -208,6 +211,7 @@ if (-d "$old") {
                 }
             }
         }
+    }
     # still some left?
     if (%patches) {
         $ret = 1;