Show
Ignore:
Timestamp:
12/08/07 20:19:54 (5 years ago)
Author:
dankogai
Message:

fixed the subtle bug that leaves hiragana small tsu unconverted

Location:
lang/perl/Lingua-JA-Kana/trunk
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Lingua-JA-Kana/trunk/Changes

    r2875 r2877  
    11# Revision history for Lingua-JA-Kana 
    22# 
    3 # $Id: Changes,v 0.1 2007/12/08 11:09:30 dankogai Exp dankogai $ 
     3# $Id: Changes,v 0.2 2007/12/08 11:18:53 dankogai Exp dankogai $ 
    44# 
     5$Revision: 0.2 $ $Date: 2007/12/08 11:18:53 $ 
     6! lib/Lingua/JA/Kana.pm 
     7  kana2romaji:  
     8   fixed the subtle bug that leaves hiragana small tsu unconverted 
    59 
    6 $Revision: 0.1 $ $Date: 2007/12/08 11:09:30 $ 
     100.01 2007/12/08 11:09:30 
    711+ *  
    812  First Release. 

  • lang/perl/Lingua-JA-Kana/trunk/Makefile.PL

    r2875 r2877  
    11# 
    2 # $Id: Makefile.PL,v 0.1 2007/12/08 11:09:30 dankogai Exp dankogai $ 
     2# $Id: Makefile.PL,v 0.1 2007/12/08 11:09:30 dankogai Exp $ 
    33# 
    44use 5.008001; # needs perl 5.8.1 or better 

  • lang/perl/Lingua-JA-Kana/trunk/README

    r2875 r2877  
    33 
    44VERSION 
    5     $Id: README,v 0.1 2007/12/08 11:09:30 dankogai Exp dankogai $ 
     5    $Id: README,v 0.1 2007/12/08 11:09:30 dankogai Exp $ 
    66 
    77SYNOPSIS 

  • lang/perl/Lingua-JA-Kana/trunk/lib/Lingua/JA/Kana.pm

    r2875 r2877  
    44use utf8; 
    55 
    6 our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g; 
     6our $VERSION = sprintf "%d.%02d", q$Revision: 0.2 $ =~ /(\d+)/g; 
    77 
    88require Exporter; 
    … …  
    168168  $str =~ s{ ($Re_Kana2Romaji) }{ $Kana2Romaji{$1} || $1 }msxge; 
    169169  # step 2; ッta -> tta 
    170   $str =~ s{ ッ($Re_Consonants) }{ "$1$1" }msxge; 
     170  $str =~ s{ [っッ]($Re_Consonants) }{ "$1$1" }msxge; 
    171171  # step 3; oー -> oo 
    172172  $str =~ s{ ($Re_Vowels)ー }{ "$1$1" }msxge; 
    … …  
    200200=head1 VERSION 
    201201 
    202 $Id: Kana.pm,v 0.1 2007/12/08 11:09:30 dankogai Exp dankogai $ 
     202$Id: Kana.pm,v 0.2 2007/12/08 11:18:53 dankogai Exp dankogai $ 
    203203 
    204204=head1 SYNOPSIS