From b9ffcf09b52902ea8cf1b4c26e0c8ae10c0a22e7 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 10 Aug 2009 17:38:22 -0700 Subject: [PATCH 1/1] support the rest of the control options in summary 0 --- Debbugs/Control.pm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm index f7c74d5..34f6bbf 100644 --- a/Debbugs/Control.pm +++ b/Debbugs/Control.pm @@ -1948,12 +1948,14 @@ sub summary { } # skip a paragraph if it looks like it's control or # pseudo-headers - if ($line =~ m{^\s*(?:(?:Package|Source|Version)\:| #pseudo headers - (?:package|(?:no|)owner|severity|tag|summary| #control - \#|reopen|close|(?:not|)(?:fixed|found)|clone| - (?:force|)merge|user(?:category|tag|) - ) - )\s+\S}x) { + if ($line =~ m{^\s*(?:Package|Source|Version|User|Tag|Severity)\:\s+\S}xi or #pseudo headers + $line =~ m{^(?:package:?|(?:no|)owner|severity|tags?|summary| #control + \#|reopen|close|(?:not|)(?:fixed|found)|clone| + debug|(?:not|)forwarded|priority| + (?:un|)block|limit|(?:un|)archive| + reassign|retitle|affects|wrongpackage + (?:un|force|)merge|user(?:category|tags?|) + )\s+\S}xis) { if (not length $paragraph) { print {$debug} "Found control/pseudo-headers and skiping them\n"; $in_pseudoheaders = 1; -- 2.39.2