From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 28 Oct 1998 21:21:16 +0000 (+0000)
Subject: integrate cfgperl into mainline
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d4ede91ce64eb3ddd64daea7c7434c33963c2e15;p=p5sagit%2Fp5-mst-13.2.git

integrate cfgperl into mainline

p4raw-id: //depot/perl@2113
---

d4ede91ce64eb3ddd64daea7c7434c33963c2e15
diff --cc pp.c
index 63f20b8,9cd1c55..d243475
--- a/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);