From 14455d6cc193f1e4316f87b9dbe258db24ceb714 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 3 Mar 2000 02:19:50 +0000 Subject: /(?p{})/ changed to /(??{})/, per Larry's suggestion (from Simon Cozens ) p4raw-id: //depot/perl@5467 --- toke.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index e18a4c8df8..3af0896349 100644 --- a/toke.c +++ b/toke.c @@ -1270,7 +1270,7 @@ S_scan_const(pTHX_ char *start) while (s < send && *s != ')') *d++ = *s++; } else if (s[2] == '{' - || s[2] == 'p' && s[3] == '{') { /* This should march regcomp.c */ + || s[2] == '?' && s[3] == '{') { /* This should march regcomp.c */ I32 count = 1; char *regparse = s + (s[2] == '{' ? 3 : 4); char c; -- cgit v1.2.1