From 504da85efffb5ab653f0292d5edcc84c0290b82a Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 20 Jun 2007 19:02:07 +0100
Subject: [PATCH] error out when makesourceversions is called with multiple
 packages

---
 Debbugs/Packages.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Debbugs/Packages.pm b/Debbugs/Packages.pm
index 190d4b46..e423bdd0 100644
--- 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[/]) {
-- 
2.39.5