lib/PublicInbox/Git.pm | 4 ++-- diff --git a/lib/PublicInbox/Git.pm b/lib/PublicInbox/Git.pm index b2ae75c8ae312042562c35dc568047bc8af49a0e..9140caea9bfb2d9e28177c92795e06f5cc94a2ca 100644 --- a/lib/PublicInbox/Git.pm +++ b/lib/PublicInbox/Git.pm @@ -66,7 +66,7 @@ my ($class, $git_dir) = @_; $git_dir =~ tr!/!/!s; $git_dir =~ s!/*\z!!s; # may contain {-tmp} field for File::Temp::Dir - bless { git_dir => $git_dir, alt_st => '', -git_path => {} }, $class + bless { git_dir => $git_dir }, $class } sub git_path ($$) { @@ -90,7 +90,7 @@ my @st = stat($alt) or return 0; # can't rely on 'q' on some 32-bit builds, but `d' works my $st = pack('dd', $st[10], $st[7]); # 10: ctime, 7: size - return 0 if $self->{alt_st} eq $st; + return 0 if ($self->{alt_st} // '') eq $st; $self->{alt_st} = $st; # always a true value }