From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 12 Jul 2012 20:17:19 +0000 (-0700)
Subject: export check_limit
X-Git-Tag: release/2.6.0~367^2~10
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=784ced27ac6771cbc2cbf31929d9ecf8827fb215

export check_limit
---

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 6851656..afd85bd 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -99,6 +99,7 @@ BEGIN{
 		     clone   => [qw(clone_bug)],
 		     archive => [qw(bug_archive bug_unarchive),
 				],
+		     limit   => [qw(check_limit)],
 		     log     => [qw(append_action_to_log),
 				],
 		    );
@@ -2020,7 +2021,7 @@ sub set_merged {
     $new_locks += $n_locks;
     %data = %{$data};
     @data = values %data;
-    if (not __check_limit(data => [@data],
+    if (not check_limit(data => [@data],
 			  exists $param{limit}?(limit => $param{limit}):(),
 			  transcript => $transcript,
 			 )) {
@@ -3618,7 +3619,7 @@ sub __begin_control {
 	    }
 	}
     }
-    if (not __check_limit(data => \@data,
+    if (not check_limit(data => \@data,
 			  exists $param{limit}?(limit => $param{limit}):(),
 			  transcript => $transcript,
 			 )) {
@@ -3685,9 +3686,9 @@ sub __end_control {
 }
 
 
-=head2 __check_limit
+=head2 check_limit
 
-     __check_limit(data => \@data, limit => $param{limit});
+     check_limit(data => \@data, limit => $param{limit});
 
 
 Checks to make sure that bugs match any limits; each entry of @data
@@ -3704,7 +3705,7 @@ limit to succeed.
 =cut
 
 
-sub __check_limit{
+sub check_limit{
     my %param = validate_with(params => \@_,
 			      spec   => {data  => {type => ARRAYREF|SCALAR,
 						  },