X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FInbox.pm;h=73f5761a875b1d1e6b8f6bfa3512248f6db54b5f;hb=d2829e99ba46695c780686142afb68c0d432826b;hp=706089caac1b5788edb386c7dbf3a17d7f9b9f80;hpb=7b7885fc3be2719c068c0a2fc860d53f17a1d933;p=public-inbox.git

diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm
index 706089ca..73f5761a 100644
--- a/lib/PublicInbox/Inbox.pm
+++ b/lib/PublicInbox/Inbox.pm
@@ -17,6 +17,7 @@ eval {
 	require PublicInbox::EvCleanup;
 	$cleanup_timer = undef; # OK if we get here
 };
+my $cleanup_broken = $@;
 
 my $CLEANUP = {}; # string(inbox) -> inbox
 sub cleanup_task () {
@@ -31,6 +32,7 @@ sub cleanup_task () {
 
 sub _cleanup_later ($) {
 	my ($self) = @_;
+	return if $cleanup_broken;
 	return unless PublicInbox::EvCleanup::enabled();
 	$cleanup_timer ||= PublicInbox::EvCleanup::later(*cleanup_task);
 	$CLEANUP->{"$self"} = $self;