--- debian/changelog | 6 +++++- scripts/Dpkg/Source/Package/V3/quilt.pm | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/debian/changelog b/debian/changelog index aeb3a53..4ab7a47 100644 --- a/debian/changelog +++ b/debian/changelog @@ -43,7 +43,11 @@ dpkg (1.15.0) UNRELEASED; urgency=low [ Updated dpkg translations ] * Portuguese (Miguel Figueiredo). - -- Guillem Jover <[EMAIL PROTECTED]> Tue, 29 Apr 2008 06:01:40 +0300 + [ Julian Andres Klode ] + * scripts/Dpkg/Source/Package/V3/quilt.pm: Handle comments at the beginning + of a line in quilt series files. Closes: #486323 + + -- Julian Andres Klode <[EMAIL PROTECTED]> Sun, 15 Jun 2008 13:21:06 +0200 dpkg (1.14.20) UNRELEASED; urgency=low diff --git a/scripts/Dpkg/Source/Package/V3/quilt.pm b/scripts/Dpkg/Source/Package/V3/quilt.pm index ef27023..c4eb2fc 100644 --- a/scripts/Dpkg/Source/Package/V3/quilt.pm +++ b/scripts/Dpkg/Source/Package/V3/quilt.pm @@ -77,7 +77,7 @@ sub get_patches { open(SERIES, "<" , $series) || syserr(_g("cannot read %s"), $series); while(defined($_ = <SERIES>)) { chomp; s/^\s+//; s/\s+$//; # Strip leading/trailing spaces - s/\s#.*$//; # Strip trailing comment + s/(^|\s)#.*//; # Strip comment next unless $_; if (/^(\S+)\s+(.*)$/) { $_ = $1; -- 1.5.5.4 -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]