Changeset 18393 for lang/perl

Timestamp:

08/28/08 17:28:07 (3 months ago)

Author:

yappo

Message:

括弧つけた

Files:

• lang/perl/misc/WassrPod/wassrpod.pl (modified) (1 diff)

lang/perl/misc/WassrPod/wassrpod.pl

@@ -163 +163 @@
             $text = encode('utf8', $text);
             $text =~ s{([ \001\002\003\004\005\006\007\010\011\013\014\016\017\020\021]{2,})}{
-                decode('whitespace-8', $1);
+                my $str = decode('whitespace-8', $1);
+                " ($str) ";
             }ge;
             $text = decode('utf8', $text);