Changeset 7893 for lang/perl/Acme-Shukugawa-Atom

Timestamp:

03/13/08 17:51:13 (9 months ago)

Author:

daisuke

Message:

lang/perl/Acme-Shukugawa-Atom; fix shisu rule

Location:

lang/perl/Acme-Shukugawa-Atom/trunk

Files:

• lib/Acme/Shukugawa/Atom.pm (modified) (1 diff)
• t/02_shisu.t (added)

lang/perl/Acme-Shukugawa-Atom/trunk/lib/Acme/Shukugawa/Atom.pm

@@ -109 +109 @@
 {
     my ($self, $yomi) = @_;
-    return $yomi if $yomi =~ s/^($RE_SYLLABLE)($RE_SYLLABLE)$/$2ー$1ー/;
+    return $yomi if $yomi =~ s{^($RE_SYLLABLE)($RE_SYLLABLE)$}{
+        my ($a, $b) = ($1, $2);
+        $b =~ s/ー$//;
+        "${b}ー${a}ー";
+    }e;
     return;
 }