From: Don Armstrong <don@volo>
Date: Sat, 15 Apr 2006 05:54:50 +0000 (-0700)
Subject:  * Make all packages lowercase to support packages with uppercase
X-Git-Tag: release/2.6.0~615^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a3944aa0e969f8d1a4d2c0e3e2a287540e83f849;p=debbugs.git

 * Make all packages lowercase to support packages with uppercase
   names (even though that's rather insane)
---

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: $!");