Fix byte count for compression streams.

diff --git a/Changelog b/Changelog
index 7a36711789eded557281e25e97d7cb6ae1bac06b..f2b0bfc173c90a2b2aa9417b470c2b9ac5193e08 100644 (file)
--- 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 721597d6268a1e3c8316453e33783d23345a5079..8b1f45106a933f850be71c24e350061c75b4852a 100644 (file)
--- 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);
 }