From: Debian BTS <debbugs@rietz>
Date: Thu, 3 Sep 2009 05:49:48 +0000 (+0000)
Subject: merge changes from dla source
X-Git-Tag: release/2.6.0~438
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=71090b73ea48513510e0669b0fa008ed7054eece;hp=1425b1538c69b15592b851d559eb27697b1f6237;p=debbugs.git

merge changes from dla source
---

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 613cb2e..6d0fafb 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -107,7 +107,7 @@ BEGIN{
 
 use Debbugs::Config qw(:config);
 use Debbugs::Common qw(:lock buglog :misc get_hashname);
-use Debbugs::Status qw(bug_archiveable :read :hook writebug splitpackages split_status_fields);
+use Debbugs::Status qw(bug_archiveable :read :hook writebug splitpackages split_status_fields get_bug_status);
 use Debbugs::CGI qw(html_escape);
 use Debbugs::Log qw(:misc);
 use Debbugs::Recipients qw(:add);
@@ -2799,6 +2799,9 @@ sub __check_limit{
     my $transcript = globify_scalar(exists $param{transcript}?$param{transcript}:undef);
     my $going_to_fail = 0;
     for my $data (@data) {
+	$data = get_bug_status(bug => $data->{bug_num},
+			       status => dclone($data),
+			      );
 	for my $field (keys %{$param{limit}}) {
 	    next unless exists $param{limit}{$field};
 	    my $match = 0;
diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 0e67f58..00516b4 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -1067,7 +1067,7 @@ sub get_bug_status {
 	 my @source;
 	 for my $package (@packages) {
 	     next if $package eq '';
-	     if ($package =~ /^src\:$/) {
+	     if ($package =~ /^src\:(.+)$/) {
 		 push @source,$1;
 	     }
 	     else {