Package: libparse-debianchangelog-perl
Version: 1.1.1-2
Severity: normal
Tags: patch
Hello,
The regular expression for the distribution in the changelog is more
restrictive than that in dpkg's Dpkg::Changelog::Debian module. dpkg
has allowed '.' and '+' characters in the distribution field since
version 1.13.20 (see http://bugs.debian.org/361171). The attached patch
makes the regexp more closely match the one in dpkg.
--
+----------------------------------------------------------+
| John Wright <john.wri...@hp.com> |
| HP Mission Critical OS Enablement & Solution Test (MOST) |
+----------------------------------------------------------+
>From 57ea8d5148560321dc808611a738405defbbdda6 Mon Sep 17 00:00:00 2001
From: John Wright <john.wri...@hp.com>
Date: Wed, 13 Jan 2010 18:35:26 -0700
Subject: [PATCH] Parse::DebianChangelog: Allow '.' and '+' in distribution name
---
lib/Parse/DebianChangelog.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/Parse/DebianChangelog.pm b/lib/Parse/DebianChangelog.pm
index 30186de..56632b8 100644
--- a/lib/Parse/DebianChangelog.pm
+++ b/lib/Parse/DebianChangelog.pm
@@ -312,7 +312,7 @@ sub parse {
while (<$fh>) {
s/\s*\n$//;
# printf(STDERR "%-39.39s %-39.39s\n",$expect,$_);
- if (m/^(\w[-+0-9a-z.]*) \(([^\(\) \t]+)\)((\s+[-0-9a-z]+)+)\;/i) {
+ if (m/^(\w[-+0-9a-z.]*) \(([^\(\) \t]+)\)((\s+[-+0-9a-z.]+)+)\;/i) {
unless ($expect eq 'first heading'
|| $expect eq 'next heading or eof') {
$entry->{ERROR} = [ $file, $NR,
--
1.6.6
