]> Sergey Matveev's repositories - public-inbox.git/blobdiff - lib/PublicInbox/LeiImportKw.pm
lei: use standard warn() in more places
[public-inbox.git] / lib / PublicInbox / LeiImportKw.pm
index c35c5c266c4b93ffc36d665b4f3954a5d8feb82f..8359f3386668b19101a8060cd932d20422d7cc35 100644 (file)
@@ -36,7 +36,7 @@ sub ck_update_kw { # via wq_io_do
        my ($self, $url, $uid, $kw) = @_;
        my @oidbin = $self->{-lms_ro}->num_oidbin($url, $uid);
        my $uid_url = "$url/;UID=$uid";
-       @oidbin > 1 and $self->{lei}->err("W: $uid_url not unique:\n",
+       @oidbin > 1 and warn("W: $uid_url not unique:\n",
                                map { "\t".unpack('H*', $_)."\n" } @oidbin);
        my %seen;
        my @docids = sort { $a <=> $b } grep { !$seen{$_}++ }