Changeset 4348 for lang/perl/Acme-Actors-JA/trunk/lib/Acme/Actors/JA/Scraper.pm

Timestamp:

01/10/08 13:28:39 (5 years ago)

Author:

daisuke

Message:

lang/perl/Acme-Actors-JA; Avoid detecting false positives

Files:

• lang/perl/Acme-Actors-JA/trunk/lib/Acme/Actors/JA/Scraper.pm (modified) (1 diff)

lang/perl/Acme-Actors-JA/trunk/lib/Acme/Actors/JA/Scraper.pm

@@ -108 +108 @@
 
     $actor->{yomi} ||= $detail->{yomi_infobox} || $detail->{yomi_text};
+
     if ($actor->{yomi}) {
         $actor->{yomi} =~ s/[　\s]+//g;
+        # Reject yomi if seemed to have gotten false positives
+        if ($actor->{yomi} !~ /^[\p{InKatakana}\p{InHiragana}]+$/) {
+            delete $actor->{yomi};
+        }
     }