From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 26 Oct 1998 10:17:21 +0000 (+0000)
Subject: Removed !(*s & 0x80) from pp_quotemeta(), introduced after
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e108d8ad49a99087b30faabbb58257ee7465c5bc;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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++;
 	}