remove unnecessary fields usage

[public-inbox.git] / lib / PublicInbox / Mbox.pm

diff --git a/lib/PublicInbox/Mbox.pm b/lib/PublicInbox/Mbox.pm
index c92d444774cef389fb6f35d0b38b4b3639377aba..8bb8dc83ba3d99acc438cae0f62d69203405f529 100644 (file)
--- a/lib/PublicInbox/Mbox.pm
+++ b/lib/PublicInbox/Mbox.pm
@@ -110,16 +110,15 @@ EOF
 package PublicInbox::MboxGz;
 use strict;
 use warnings;
-use fields qw(gz fh buf);
 
 sub new {
        my ($class, $fh) = @_;
-       my $self = fields::new($class);
        my $buf;
-       $self->{buf} = \$buf;
-       $self->{gz} = IO::Compress::Gzip->new(\$buf);
-       $self->{fh} = $fh;
-       $self;
+       bless {
+               buf => \$buf,
+               gz => IO::Compress::Gzip->new(\$buf),
+               fh => $fh,
+       }, $class;
 }
 
 sub _flush_buf {