aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2015-10-06 02:25:56 +0200
committerGuilhem Moulin <guilhem@fripost.org>2015-10-06 02:25:56 +0200
commiteb6b971fbd5ef3f9bd76770262da5808cf8c506a (patch)
treef236744200db5b3f3617401d7b1543dff51728b3
parenta021e204e0844d81766ad13db229839436357c0e (diff)
Fix byte count for compression streams.
-rw-r--r--Changelog2
-rw-r--r--lib/Net/IMAP/InterIMAP.pm4
2 files changed, 4 insertions, 2 deletions
diff --git a/Changelog b/Changelog
index 7a36711..f2b0bfc 100644
--- a/Changelog
+++ b/Changelog
@@ -1,5 +1,7 @@
interimap (0.3) upstream;
+ * Fix byte count for compression streams.
+
-- Guilhem Moulin <guilhem@guilhem.org> Mon, 28 Sep 2015 01:16:47 +0200
interimap (0.2) upstream;
diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index 721597d..8b1f451 100644
--- a/lib/Net/IMAP/InterIMAP.pm
+++ b/lib/Net/IMAP/InterIMAP.pm
@@ -485,11 +485,11 @@ sub stats($) {
$msg .= ' recv '._kibi($self->{_OUTCOUNT});
$msg .= ' (compr. '._kibi($self->{_OUTRAWCOUNT}).
', factor '.sprintf('%.2f', $self->{_OUTRAWCOUNT}/$self->{_OUTCOUNT}).')'
- if defined $self->{_Z_DEFLATE} and $self->{_OUTCOUNT} > 0;
+ if exists $self->{_Z_DEFLATE} and $self->{_OUTCOUNT} > 0;
$msg .= ' sent '._kibi($self->{_INCOUNT});
$msg .= ' (compr. '._kibi($self->{_INRAWCOUNT}).
', factor '.sprintf('%.2f', $self->{_INRAWCOUNT}/$self->{_INCOUNT}).')'
- if defined $self->{_Z_DEFLATE} and $self->{_INCOUNT} > 0;
+ if exists $self->{_Z_DEFLATE} and $self->{_INCOUNT} > 0;
$self->log($msg);
}