diff options
author | Eric Wong <e@80x24.org> | 2021-06-20 04:33:19 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-06-20 04:37:24 +0000 |
commit | 717e5d6b46f6f86610eda20b52ecfe5f796e6563 (patch) | |
tree | c5c283cf47ac01e559f248350a8ba2d6abe48632 | |
parent | 0212b74613db5c018b70119cac18b3949ff3e946 (diff) | |
download | public-inbox-717e5d6b46f6f86610eda20b52ecfe5f796e6563.tar.gz |
%INC can hold undef. This can be hit on a Linux machine missing Linux::Inotify2. Loading PublicInbox::KQNotify is attempted and PublicInbox/KQNotify.pm always exists, causing the `undef' entry in %INC when it fails to load IO::KQueue. $ perl -MData::Dumper -I lib \ -E 'eval { require PublicInbox::KQNotify }; say Dumper(\%INC)'
-rw-r--r-- | lib/PublicInbox/LeiSucks.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/LeiSucks.pm b/lib/PublicInbox/LeiSucks.pm index a71158f3..3e945d0b 100644 --- a/lib/PublicInbox/LeiSucks.pm +++ b/lib/PublicInbox/LeiSucks.pm @@ -55,7 +55,7 @@ sub lei_sucks { my $dig = Digest::SHA->new(1); push @out, "public-inbox blob OIDs of loaded features:\n"; for my $m (grep(m{^PublicInbox/}, sort keys %INC)) { - my $f = $INC{$m}; + my $f = $INC{$m} // next; # lazy require failed (missing dep) $dig->add('blob '.(-s $f)."\0"); $dig->addfile($f); push @out, ' '.$dig->hexdigest.' '.$m."\n"; |