Changeset 18542 for lang/perl/Acme-Shigin

Timestamp:

08/31/08 21:17:07 (5 years ago)

Author:

bayashi

Message:

bug fixed Shigin.pm

Files:

• lang/perl/Acme-Shigin/trunk/lib/Acme/Shigin.pm (modified) (2 diffs)

lang/perl/Acme-Shigin/trunk/lib/Acme/Shigin.pm

@@ -12 +12 @@
 use Lingua::JA::Kana;
 
-our $VERSION = '0.0.1';
+our $VERSION = '0.0.2';
 
 sub new {
@@ -71 +71 @@
             $bunsetsu->[$c]->{surface} .= $surface;
             $bunsetsu->[$c]->{romaji}  .= kana2romaji($yomi) if $yomi;
-            $c++;
-        }elsif($hinshi2  eq '読点'){
-            # 読点は区切る
             $c++;
         }else{