Changeset 30818 for lang/perl/HTML-MobileJpCSS

Timestamp:

03/04/09 19:46:27 (4 years ago)

Author:

komoriya

Message:

Bug Fix "Quote Regex"

Location:

lang/perl/HTML-MobileJpCSS/trunk

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• lib/HTML/MobileJpCSS.pm (modified) (2 diffs)
• t/07_sjis.t (added)

lang/perl/HTML-MobileJpCSS/trunk/Changes

@@ -1 +1 @@
 Revision history for HTML-MobileJpCSS
+
+0.03  Tue Mar   4 19:21:12 2009
+        - Fixed Quote Regex
+        (Thanks to Craftworks)
 
 0.02  Tue Feb   3 19:45:12 2009

lang/perl/HTML-MobileJpCSS/trunk/MANIFEST

@@ -28 +28 @@
 t/05_multiple.t
 t/06_html.t
+t/07_imultibyte.t
 t/css/t.css

lang/perl/HTML-MobileJpCSS/trunk/lib/HTML/MobileJpCSS.pm

@@ -7 +7 @@
 use HTTP::MobileAgent;
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 our %IstyleDoCoMo = (
@@ -211 +211 @@
     }
     $replace =~ s/[\n\s]+/ /g;
-    $content =~ s/$node/$replace/is;
+    $content =~ s/\Q$node\E/$replace/is;
     return $content;
 }