about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-06-20 04:33:19 +0000
committerEric Wong <e@80x24.org>2021-06-20 04:37:24 +0000
commit717e5d6b46f6f86610eda20b52ecfe5f796e6563 (patch)
treec5c283cf47ac01e559f248350a8ba2d6abe48632
parent0212b74613db5c018b70119cac18b3949ff3e946 (diff)
downloadpublic-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.pm2
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";