From 717e5d6b46f6f86610eda20b52ecfe5f796e6563 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sun, 20 Jun 2021 04:33:19 +0000 Subject: lei sucks: don't warn or error out on missing dependencies %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)' --- lib/PublicInbox/LeiSucks.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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"; -- cgit v1.2.3-24-ge0c7