From b38da7a653e334ad92ee3dd9b03677dffd0a9bba Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 6 Aug 2009 19:32:43 -0700
Subject: [PATCH]  * Fix __internal_request in Debbugs::Control  * Use internal
 request to avoid warning on bad packages when adding    the recipients
 multiple times

---
 Debbugs/Control.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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";
-- 
2.39.5