diff options
Diffstat (limited to 'lib/PublicInbox/LeiDedupe.pm')
-rw-r--r-- | lib/PublicInbox/LeiDedupe.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/PublicInbox/LeiDedupe.pm b/lib/PublicInbox/LeiDedupe.pm index c6eb7196..34d8bc27 100644 --- a/lib/PublicInbox/LeiDedupe.pm +++ b/lib/PublicInbox/LeiDedupe.pm @@ -67,8 +67,12 @@ sub dedupe_content () { sub dedupe_none () { (undef, sub { 1 }) } sub new { - my ($cls, $lei) = @_; + my ($cls, $lei, $dst) = @_; my $dd = $lei->{opt}->{dedupe} // 'content'; + + # allow "none" to bypass Eml->new if writing to directory: + return if ($dd eq 'none' && substr($dst // '', -1) eq '/'); + my $dd_new = $cls->can("dedupe_$dd") // die "unsupported dedupe strategy: $dd\n"; bless [ $dd_new->() ], $cls; # [ $skv, $cb ] |