r1280 - in packages/libnetxap-perl/trunk: Net debian

Jaldhar H. Vyas jaldhar at costa.debian.org
Wed Aug 3 21:48:51 UTC 2005


Author: jaldhar
Date: 2005-08-03 21:48:50 +0000 (Wed, 03 Aug 2005)
New Revision: 1280

Modified:
   packages/libnetxap-perl/trunk/Net/IMAP.pm
   packages/libnetxap-perl/trunk/debian/changelog
Log:
Fix bug #319558: libnet-imap-perl: Debug output of "fetch" that cannot be 
disabled 


Modified: packages/libnetxap-perl/trunk/Net/IMAP.pm
===================================================================
--- packages/libnetxap-perl/trunk/Net/IMAP.pm	2005-08-03 09:55:18 UTC (rev 1279)
+++ packages/libnetxap-perl/trunk/Net/IMAP.pm	2005-08-03 21:48:50 UTC (rev 1280)
@@ -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 $parent->debug;
     if ($lckey eq 'envelope') {
       $self->{Items}{$lckey} = Net::IMAP::Envelope->new($hash{$key});
     } elsif (($lckey eq 'bodystructure') || ($lckey eq 'body')) {

Modified: packages/libnetxap-perl/trunk/debian/changelog
===================================================================
--- packages/libnetxap-perl/trunk/debian/changelog	2005-08-03 09:55:18 UTC (rev 1279)
+++ packages/libnetxap-perl/trunk/debian/changelog	2005-08-03 21:48:50 UTC (rev 1280)
@@ -1,3 +1,10 @@
+libnetxap-perl (0.02-5) unstable; urgency=low
+
+  * Suppress debug output unless we actually asked for it.  Thanks to
+    Morten Bgeskov for the patch.  (Closes: #319558)
+
+ -- Jaldhar H. Vyas <jaldhar at debian.org>  Wed,  3 Aug 2005 17:44:55 -0400
+
 libnetxap-perl (0.02-4) unstable; urgency=low
 
   * Package now maintained by the Debian Perl group.




More information about the Pkg-perl-cvs-commits mailing list