Package: dpkg-dev
Version: 1.13.17
Severity: wishlist
Tags: patch
Currently, dpkg-parsechangelog complains and dies if there is a "." in
the distribution field in the first line of the changelog. This is not
yet an issue for Debian itself, but my employer distributes a
Debian-based product, and we use versions in our distribution names. So
allowing "." in the distribution field would be useful for us.
I checked the Policy Manual for any indication of full-stops not being
allowed in the distribution name, and I couldn't find any. Is there a
reason dpkg-parsechangelog currently doesn't like "."?
I am attaching a patch that adds this functionality.
Thanks,
John Wright
-- System Information:
Debian Release: testing/unstable
APT prefers unstable
APT policy: (500, 'unstable')
Architecture: i386 (i686)
Shell: /bin/sh linked to /bin/bash
Kernel: Linux 2.6.12.6-xenU
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Versions of packages dpkg-dev depends on:
ii binutils 2.16.1cvs20051214-1 The GNU assembler, linker and bina
ii cpio 2.6-10 GNU cpio -- a program to manage ar
ii dpkg 1.13.11.0.1 package maintenance system for Deb
ii make 3.80+3.81.b4-1 The GNU version of the "make" util
ii patch 2.5.9-2 Apply a diff file to an original
ii perl [perl5] 5.8.7-10 Larry Wall's Practical Extraction
ii perl-modules 5.8.7-10 Core Perl modules
Versions of packages dpkg-dev recommends:
pn bzip2 <none> (no description available)
ii gcc [c-compiler] 4:4.0.2-2 The GNU C compiler
ii gcc-4.0 [c-compiler] 4.0.2-6 The GNU C compiler
-- no debconf information
*** /home/jswright/dpkg/dpkg-parsechangelog-full-stop.diff
diff -Nur dpkg-1.13.17.orig/scripts/changelog/debian.pl
dpkg-1.13.17/scripts/changelog/debian.pl
--- dpkg-1.13.17.orig/scripts/changelog/debian.pl 2006-04-06
17:56:03.000000000 -0600
+++ dpkg-1.13.17/scripts/changelog/debian.pl 2006-04-06 17:58:42.000000000
-0600
@@ -52,7 +52,7 @@
while (<STDIN>) {
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) {
if ($expect eq 'first heading') {
$f{'Source'}= $1;
$f{'Version'}= $2;
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
