integrate cfgperl into mainline

p4raw-id: //depot/perl@2113

1 files changed, 7 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 63f20b8a0a..d243475843 100644
--- a/pp.c
+++ b/pp.c
@@ -2469,6 +2469,13 @@ PP(pp_quotemeta)
 		*d++ = *s++;
 	    }
 	}
+	else {
+	    while (len--) {
+		if (!isALNUM(*s))
+		    *d++ = '\\';
+		*d++ = *s++;
+	    }
+ 	}
 	*d = '\0';
 	SvCUR_set(TARG, d - SvPVX(TARG));
 	(void)SvPOK_only(TARG);