From a3944aa0e969f8d1a4d2c0e3e2a287540e83f849 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@volo>
Date: Fri, 14 Apr 2006 22:54:50 -0700
Subject: [PATCH]  * Make all packages lowercase to support packages with
 uppercase    names (even though that's rather insane)

---
 debian/changelog   | 2 ++
 scripts/process.in | 6 ++++--
 scripts/service.in | 4 ++--
 3 files changed, 8 insertions(+), 4 deletions(-)
 mode change 100755 => 100644 scripts/process.in

diff --git a/debian/changelog b/debian/changelog
index 6e3e7adf..a46d9b15 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -103,6 +103,8 @@ debbugs (2.4.2) UNRELEASED; urgency=low
       (closes: #136654)
     - Add a forcemerge command to service.in to allow forcibly merging
       bugs which are in the same package. (closes: #286792)
+    - Make all packages lowercase to support packages with uppercase
+      names, even though that's insane. (closes: #67067)
   
  -- Colin Watson <cjwatson@debian.org>  Fri, 20 Jun 2003 18:57:25 +0100
 
diff --git a/scripts/process.in b/scripts/process.in
old mode 100755
new mode 100644
index 090f2333..480b3afc
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1087,7 +1087,8 @@ sub checkmaintainers {
 	m/^\s*$/ && next;
         m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers bogus \`$_'");
         $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
-        $maintainerof{$1}= $2;
+	# use the package which is normalized to lower case; we do this because we lc the pseudo headers.
+        $maintainerof{$a}= $2;
     }
     close(MAINT);
     open(MAINT,"$gMaintainerFileOverride") || die &quit("maintainers.override open: $!");
@@ -1096,7 +1097,8 @@ sub checkmaintainers {
 	m/^\s*$/ && next;
         m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers.override bogus \`$_'");
         $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
-        $maintainerof{$1}= $2;
+	# use the package which is normalized to lower case; we do this because we lc the pseudo headers.
+        $maintainerof{$a}= $2;
     }
     close(MAINT);
     open(SOURCES,"$gPackageSource") || &quit("pkgsrc open: $!");
diff --git a/scripts/service.in b/scripts/service.in
index 28482218..3742a999 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1548,7 +1548,7 @@ sub ensuremaintainersloaded {
 	m/^\s*$/ && next;
         m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers bogus \`$_'");
         $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
-        $maintainerof{$1}= $2;
+        $maintainerof{$a}= $2;
     }
     close(MAINT);
     open(MAINT,"$gMaintainerFileOverride") || die &quit("maintainers.override open: $!");
@@ -1557,7 +1557,7 @@ sub ensuremaintainersloaded {
         m/^\s*$/ && next;
         m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers.override bogus \`$_'");
         $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
-        $maintainerof{$1}= $2;
+        $maintainerof{$a}= $2;
     }
 
     open(SOURCES, "$gPackageSource") || &quit("pkgsrc open: $!");
-- 
2.39.5