integrate cfgperl into mainline
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 28 Oct 1998 21:21:16 +0000 (21:21 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 28 Oct 1998 21:21:16 +0000 (21:21 +0000)
p4raw-id: //depot/perl@2113

1  2 
pp.c
toke.c

diff --cc pp.c
--- 1/pp.c
--- 2/pp.c
+++ b/pp.c
@@@ -2468,7 -2468,7 +2468,14 @@@ PP(pp_quotemeta
                    *d++ = '\\';
                *d++ = *s++;
            }
 +      }
++      else {
++          while (len--) {
++              if (!isALNUM(*s))
++                  *d++ = '\\';
++              *d++ = *s++;
++          }
+       }
        *d = '\0';
        SvCUR_set(TARG, d - SvPVX(TARG));
        (void)SvPOK_only(TARG);
diff --cc toke.c
Simple merge