Removed !(*s & 0x80) from pp_quotemeta(), introduced after

5_02 and really breaking things in non-ASCII worlds.

p4raw-id: //depot/cfgperl@2093

diff --git a/pp.c b/pp.c
index 05b242a..6a93287 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -2445,7 +2445,7 @@ PP(pp_quotemeta)
        SvGROW(TARG, (len * 2) + 1);
        d = SvPVX(TARG);
        while (len--) {
-           if (!(*s & 0x80) && !isALNUM(*s))
+           if (!isALNUM(*s))
                *d++ = '\\';
            *d++ = *s++;
        }