tests: guard against missing DBD::SQLite

[public-inbox.git] / lib / PublicInbox / LeiDedupe.pm

diff --git a/lib/PublicInbox/LeiDedupe.pm b/lib/PublicInbox/LeiDedupe.pm
index 5c83fd8007ce55438f989ebd3a2bc835d05b7373..2114c0e8629bb75822c9b7d5ce663d259542cbb4 100644 (file)
--- a/lib/PublicInbox/LeiDedupe.pm
+++ b/lib/PublicInbox/LeiDedupe.pm
@@ -3,7 +3,6 @@
 package PublicInbox::LeiDedupe;
 use strict;
 use v5.10.1;
-use PublicInbox::SharedKV;
 use PublicInbox::ContentHash qw(content_hash);
 use Digest::SHA ();
 
@@ -98,8 +97,11 @@ sub new {
        return if ($dd eq 'none' && substr($dst // '', -1) eq '/');
        my $m = "dedupe_$dd";
        $cls->can($m) or die "unsupported dedupe strategy: $dd\n";
-       my $skv = $dd eq 'none' ? undef : PublicInbox::SharedKV->new;
-
+       my $skv;
+       if ($dd ne 'none') {
+               require PublicInbox::SharedKV;
+               $skv = PublicInbox::SharedKV->new;
+       }
        # [ $skv, $eml_cb, $smsg_cb, "dedupe_$dd" ]
        bless [ $skv, undef, undef, $m ], $cls;
 }