* Merge changes from Sesse which fix source packages no binary of the same name

[debbugs.git] / scripts / errorlib.in

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index 562f0b2d6a3cc417654876a309bc0bac68cb74b7..d26381e693012a2ebca1a4067dd4ef5efb2d521c 100755 (executable)
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -281,6 +281,7 @@ sub addfoundversions {
             return;
         }
         # Otherwise, an unqualified version will have to do.
+        undef $source;
     }
 
     # Strip off various kinds of brain-damage.
@@ -315,6 +316,7 @@ sub removefoundversions {
             return;
         }
         # Otherwise, an unqualified version will have to do.
+        undef $source;
     }
 
     foreach my $ver (split /[,\s]+/, $version) {
@@ -341,6 +343,7 @@ sub addfixedversions {
             return;
         }
         # Otherwise, an unqualified version will have to do.
+        undef $source;
     }
 
     # Strip off various kinds of brain-damage.
@@ -375,6 +378,7 @@ sub removefixedversions {
             return;
         }
         # Otherwise, an unqualified version will have to do.
+        undef $source;
     }
 
     foreach my $ver (split /[,\s]+/, $version) {