control.pl: Remove debugging prints

diff --git a/scripts/control.pl b/scripts/control.pl
index 9bb216aec1cd02020b7198d409e9db11dd642d68..41f6cd96de9852e974b8cdebd0b0b0aa527e5f2f 100755 (executable)
--- a/scripts/control.pl
+++ b/scripts/control.pl
@@ -231,9 +231,7 @@ sub lookup_bugid ($) {
 
     if ( $b eq "it" ) {
         die "No previous bug found" unless @bugs;
-        print "bugs array: " . join(" ",@bugs) . ": $#bugs\n";
         my $it = $bugs [ $#bugs ];
-        print "it is $it\n";
         $bugs{$it} = 0 unless $bugs{$it};
         return Emesinae::Bug->new( $dbh, ID => $it );
     }