diff options
Diffstat (limited to 'srclib/pcre/perltest')
| -rwxr-xr-x | srclib/pcre/perltest | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/srclib/pcre/perltest b/srclib/pcre/perltest index 1e96c792b9..e6f797498c 100755 --- a/srclib/pcre/perltest +++ b/srclib/pcre/perltest @@ -9,7 +9,7 @@ sub pchars { my($t) = ""; -foreach $c (split(//, @_[0])) +foreach $c (split(//, $_[0])) { if (ord $c >= 32 && ord $c < 127) { $t .= $c; } else { $t .= sprintf("\\x%02x", ord $c); } |