Move the test for the deprecated feature <<; out of t/base/lext.t

[p5sagit/p5-mst-13.2.git] / x2p / walk.c

diff --git a/x2p/walk.c b/x2p/walk.c
index ef754c5..d3d5f91 100644 (file)
--- a/x2p/walk.c
+++ b/x2p/walk.c
@@ -845,7 +845,7 @@ sub Pick {\n\
            for (t = tmp2str->str_ptr, d=tokenbuf; *t; d++,t++) {
                if (*t == '&')
                    *d++ = '$' + (char)128;
-               else if (*t == '$')
+               else if (*t == '$' || *t == '/')
                    *d++ = '\\' + (char)128;
                *d = *t + 128;
            }