---
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]
