From: Guilhem Moulin <guilhem@fripost.org>
Date: Tue, 6 Oct 2015 00:25:56 +0000 (+0200)
Subject: Fix byte count for compression streams.
X-Git-Url: https://git.g-eek.se/?a=commitdiff_plain;h=eb6b971fbd5ef3f9bd76770262da5808cf8c506a;p=interimap.git

Fix byte count for compression streams.
---

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);
 }