* 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 6e3e7adf450f74ca74619d14b02ddf06ef788bf6..a46d9b150563d9601323ab810b817792737d31b7 100644 (file)
--- 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 (executable)
new mode 100644 (file)
index 090f233..480b3af
--- 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 28482218d7fdd543acc88a832f6660d1ebe8423e..3742a999435c081407ea3840e214010d33411a7b 100755 (executable)
--- 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: $!");