diff options
author | Eric Wong <e@80x24.org> | 2019-11-24 03:19:42 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-11-24 21:23:31 +0000 |
commit | ff85eb0277ac30ef48108f2a27ce02bbc48a3f5f (patch) | |
tree | 6eaa3cd091b2ae3c3a313e9bca7cda4298e55b82 /lib/PublicInbox/MboxGz.pm | |
parent | 48d4fdb2acbf8cf05dcb357df53b0d658f88fe39 (diff) | |
download | public-inbox-ff85eb0277ac30ef48108f2a27ce02bbc48a3f5f.tar.gz |
Perl 5.16.3 (and possibly older versions) fails with the following errors (from CentOS7): Use of ?PATTERN? without explicit operator is deprecated Search pattern not terminated
Diffstat (limited to 'lib/PublicInbox/MboxGz.pm')
-rw-r--r-- | lib/PublicInbox/MboxGz.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/MboxGz.pm b/lib/PublicInbox/MboxGz.pm index 2a55447f..1621cff8 100644 --- a/lib/PublicInbox/MboxGz.pm +++ b/lib/PublicInbox/MboxGz.pm @@ -63,7 +63,7 @@ sub getline { # signal that we're done and can return undef next call: delete $self->{ctx}; my $err = $gz->flush($buf, Z_FINISH); - $err == Z_OK ? $buf : gzip_fail($ctx, $err); + ($err == Z_OK) ? $buf : gzip_fail($ctx, $err); } sub close {} # noop |