Dpkg::Changelog::Debian: Allow capitals in distribution/package names

* scripts/Dpkg/Changelog/Debian.pm: Fix regression by re-allowing
capitals (like UNRELEASED!) in the distribution/package name.
* scripts/t/600_Dpkg_Changelog/regressions: Add capitals in the
distribution name as part of the non-regression tests.

ChangeLog

@@ -1,3 +1,10 @@
+2008-03-14  Raphael Hertzog  <hertzog@debian.org>
+
+	* scripts/Dpkg/Changelog/Debian.pm: Fix regression by re-allowing
+	capitals (like UNRELEASED!) in the distribution/package name.
+	* scripts/t/600_Dpkg_Changelog/regressions: Add capitals in the
+	distribution name as part of the non-regression tests.
+
 2008-03-11  Ian Jackson  <ian@davenant.greenend.org.uk>,
             Guillem Jover  <guillem@debian.org>
 

scripts/Dpkg/Changelog/Debian.pm

@@ -134,7 +134,7 @@ sub parse {
     while (<$fh>) {
 	s/\s*\n$//;
 #	printf(STDERR "%-39.39s %-39.39s\n",$expect,$_);
-	my $name_chars = qr/[-+0-9a-z.]/;
+	my $name_chars = qr/[-+0-9a-z.]/i;
 	if (m/^(\w$name_chars*) \(([^\(\) \t]+)\)((\s+$name_chars+)+)\;/i) {
 	    unless ($expect eq 'first heading'
 		    || $expect eq 'next heading or eof') {

scripts/t/600_Dpkg_Changelog/regressions

@@ -1,4 +1,4 @@
-re-gressions++1.2.3 (1.5-1) allowed.chars-567+890; urgency=low
+re-gressions++1.2.3 (1.5-1) ALLOWED.chars-567+890; urgency=low
 
   * Test allowed chars in package name and distribution name.
     (Closes: #361171)