git: use fields for GitCatFile

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

diff --git a/lib/PublicInbox/GitCatFile.pm b/lib/PublicInbox/GitCatFile.pm
index 3fced28d8d8d6058c04852090840d891c458a495..540369616db2006473a69f94cad014a12cadd246 100644 (file)
--- a/lib/PublicInbox/GitCatFile.pm
+++ b/lib/PublicInbox/GitCatFile.pm
@@ -8,10 +8,13 @@ use strict;
 use warnings;
 use POSIX qw(dup2);
 require IO::Handle;
+use fields qw(git_dir pid in out);
 
 sub new {
        my ($class, $git_dir) = @_;
-       bless { git_dir => $git_dir }, $class;
+       my $self = fields::new($class);
+       $self->{git_dir} = $git_dir;
+       $self;
 }
 
 sub _cat_file_begin {