/[pcre]/code/tags/pcre-3.4/perltest
ViewVC logotype

Diff of /code/tags/pcre-3.4/perltest

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

code/trunk/perltest revision 41 by nigel, Sat Feb 24 21:39:17 2007 UTC code/tags/pcre-3.4/perltest revision 52 by nigel, Sat Feb 24 21:39:39 2007 UTC
# Line 9  Line 9 
9  sub pchars {  sub pchars {
10  my($t) = "";  my($t) = "";
11    
12  foreach $c (split(//, @_[0]))  foreach $c (split(//, $_[0]))
13    {    {
14    if (ord $c >= 32 && ord $c < 127) { $t .= $c; }    if (ord $c >= 32 && ord $c < 127) { $t .= $c; }
15      else { $t .= sprintf("\\x%02x", ord $c); }      else { $t .= sprintf("\\x%02x", ord $c); }

Legend:
Removed from v.41  
changed lines
  Added in v.52

  ViewVC Help
Powered by ViewVC 1.1.5