error out when makesourceversions is called with multiple packages

diff --git a/Debbugs/Packages.pm b/Debbugs/Packages.pm
index 190d4b46abc9943c62852a7a6d4a9b64f20c77e4..e423bdd019c8387477d1abfd71d0b4f9a35c7048 100644 (file)
--- a/Debbugs/Packages.pm
+++ b/Debbugs/Packages.pm
@@ -346,6 +346,8 @@ sub makesourceversions {
     my $pkg = shift;
     my $arch = shift;
     my %sourceversions;
+    die "Package $pkg is multiple packages; split on , and call makesourceversions multiple times"
+        if $pkg =~ /,/;
 
     for my $version (@_) {
         if ($version =~ m[/]) {