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