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

Diff of /code/trunk/perltest

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

revision 41 by nigel, Sat Feb 24 21:39:17 2007 UTC revision 49 by nigel, Sat Feb 24 21:39:33 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.49

webmaster@exim.org
ViewVC Help
Powered by ViewVC 1.1.12