From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 7 Aug 2009 02:32:43 +0000 (-0700)
Subject:  * Fix __internal_request in Debbugs::Control
X-Git-Tag: release/2.6.0~456^2~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b38da7a653e334ad92ee3dd9b03677dffd0a9bba;p=debbugs.git

 * Fix __internal_request in Debbugs::Control
 * Use internal request to avoid warning on bad packages when adding
   the recipients multiple times
---

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index c80a3ce0..cf2ab841 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -2586,7 +2586,7 @@ C<__PACKAGE__>.
 sub __internal_request{
     my ($l) = @_;
     $l = 0 if not defined $l;
-    if (defined +(caller(2+$l))[0] and +(caller(2+$l))[0] eq __PACKAGE__) {
+    if (defined((caller(1+$l))[0]) and (caller(1+$l))[0] eq __PACKAGE__) {
 	return 1;
     }
     return 0;
@@ -2710,7 +2710,7 @@ sub __begin_control {
 		   recipients => $param{recipients},
 		   (exists $param{command}?(actions_taken => {$param{command} => 1}):()),
 		   debug      => $debug,
-		   transcript => $transcript,
+		   (__internal_request()?(transcript => $transcript):()),
 		  );
 
     print {$debug} "$param{bug} read done\n";