/[pcre]/code/trunk/perltest.pl
ViewVC logotype

Diff of /code/trunk/perltest.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 902 by ph10, Sat Jan 14 16:20:44 2012 UTC revision 903 by ph10, Sat Jan 21 16:37:17 2012 UTC
# Line 23  if ($utf8) Line 23  if ($utf8)
23    foreach $c (@p)    foreach $c (@p)
24      {      {
25      if ($c >= 32 && $c < 127) { $t .= chr $c; }      if ($c >= 32 && $c < 127) { $t .= chr $c; }
26        else { $t .= sprintf("\\x{%02x}", $c);        else { $t .= sprintf("\\x{%02x}", $c);
27        }        }
28      }      }
29    }    }
# Line 216  for (;;) Line 216  for (;;)
216            }            }
217          splice(@subs, 0, 18);          splice(@subs, 0, 18);
218          }          }
219    
220        # It seems that $REGMARK is not marked as UTF-8 even when use utf8 is        # It seems that $REGMARK is not marked as UTF-8 even when use utf8 is
221        # set and the input pattern was a UTF-8 string. We can, however, force        # set and the input pattern was a UTF-8 string. We can, however, force
222        # it to be so marked.        # it to be so marked.
223    
224        if (defined $REGMARK && $REGMARK != 1)        if (defined $REGMARK && $REGMARK != 1)
225          {          {
226          $xx = $REGMARK;          $xx = $REGMARK;
227          $xx = Encode::decode_utf8($xx) if $utf8;          $xx = Encode::decode_utf8($xx) if $utf8;
228          printf $outfile ("MK: %s\n", &pchars($xx));          printf $outfile ("MK: %s\n", &pchars($xx));
229          }          }
230        }        }
231      }      }

Legend:
Removed from v.902  
changed lines
  Added in v.903

  ViewVC Help
Powered by ViewVC 1.1.5