Bug#319558: libnet-imap-perl: Debug output of "fetch" that cannot be disabled.

[Morten Bøgeskov]

Package: libnet-imap-perl
Version: 0.02-3
Severity: minor

When running $imap->fetch(...) there is debug output on stdout. It's the
extracted stringdata from the response before it gets passed on to the
corresponding class.

I suggest it is only printed when the debug flag is set.

----------------------------------------------------------------------
diff -u -r libnetxap-perl-0.02.vanilla/Net/IMAP.pm
libnetxap-perl-0.02/Net/IMAP.pm
--- libnetxap-perl-0.02.vanilla/Net/IMAP.pm     2005-07-23
03:21:42.977003000 +0200
+++ libnetxap-perl-0.02/Net/IMAP.pm     2005-07-23 03:22:45.231568468
+0200
@@ -2088,7 +2088,8 @@
   my %hash = @{Net::xAP->parse_fields($str)->[0]};
   for my $key (keys %hash) {
     my $lckey = lc($key);
-    print "$lckey $hash{$key}\n";
+    print "$lckey $hash{$key}\n"
+      if $self->debug;
     if ($lckey eq 'envelope') {
       $self->{Items}{$lckey} = Net::IMAP::Envelope->new($hash{$key});
     } elsif (($lckey eq 'bodystructure') || ($lckey eq 'body')) {
--------------------------------------------------------------------