Changeset 38965

Timestamp:

07/26/11 19:25:10 (22 months ago)

Author:

dankogai

Message:

VERSION 0.06

Location:

lang/perl/Lingua-JA-Kana/trunk

Files:

• Changes (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Lingua/JA/Kana.pm (modified) (3 diffs)

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

@@ -1 +1 @@
 # Revision history for Lingua-JA-Kana
 #
-# $Id: Changes,v 0.5 2011/06/10 10:23:43 dankogai Exp dankogai $
+# $Id: Changes,v 0.6 2011/07/26 09:50:36 dankogai Exp dankogai $
 #
-$Revision: 0.5 $ $Date: 2011/06/10 10:23:43 $
+$Revision: 0.6 $ $Date: 2011/07/26 09:50:36 $
+! lib/Lingua/JA/Kana.pm
+  support perl 5.14+, that is "Stringification of regexes has changed".
+  by @tokuhirom
+  https://github.com/dankogai/p5-lingua-ja-kana/pull/1/files
+
+0.05 2011/06/10 10:23:43
 + t/01-RT.t
 ! Makefile.PL

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

@@ -1 +1 @@
 #
-# $Id: Makefile.PL,v 0.2 2011/06/10 10:23:43 dankogai Exp dankogai $
+# $Id: Makefile.PL,v 0.2 2011/06/10 10:23:43 dankogai Exp $
 #
 use 5.008001; # needs perl 5.8.1 or better

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

@@ -4 +4 @@
 use utf8;
 
-our $VERSION = sprintf "%d.%02d", q$Revision: 0.5 $ =~ /(\d+)/g;
-
+our $VERSION = sprintf "%d.%02d", q$Revision: 0.6 $ =~ /(\d+)/g;
+
+use re ();
 require Exporter;
 use base qw/Exporter/;
@@ -122 +123 @@
         $ra->add($_) for keys %Romaji2Kata;
         my $str = $ra->re;
-        substr( $str, 0,  8, '' );    # remove '(?-xism:'
-        substr( $str, -1, 1, '' );    # and ')';
+        if ($] >= 5.009005) {
+            my ($pattern, $mod) = re::regexp_pattern($str);
+            $str = $pattern;
+        } else {
+            substr( $str, 0,  8, '' );    # remove '(?-xism:'
+            substr( $str, -1, 1, '' );    # and ')';
+        }
         qr/$str/i;                    # and recompile with i
     }
@@ -222 +228 @@
 =head1 VERSION
 
-$Id: Kana.pm,v 0.5 2011/06/10 10:23:43 dankogai Exp dankogai $
+$Id: Kana.pm,v 0.6 2011/07/26 09:48:18 dankogai Exp $
 
 =head1 SYNOPSIS