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.

diff --git a/ChangeLog b/ChangeLog
index fd73dcba631ec6df6b9db7765751479e150980f0..be588d1fc56b3c1f0bfe9dcd7f9bf4a1ff0697d0 100644 (file)
--- a/ChangeLog
+++ b/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>
 

diff --git a/scripts/Dpkg/Changelog/Debian.pm b/scripts/Dpkg/Changelog/Debian.pm
index d7f0c9de52172bb7207000130ed25812acf42010..b9a4b0335758505ce7972e93c9d56407f262e315 100644 (file)
--- a/scripts/Dpkg/Changelog/Debian.pm
+++ b/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') {

diff --git a/scripts/t/600_Dpkg_Changelog/regressions b/scripts/t/600_Dpkg_Changelog/regressions
index 356174ad93997aa3523db0a879be081d74e1c8f3..d0101804ae490d577f495294366bfefe17b33535 100644 (file)
--- a/scripts/t/600_Dpkg_Changelog/regressions
+++ b/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)