Change 14547 by jhi@alpha on 2002/02/04 13:30:55
Subject: [PATCH] (??{ }) anomaly
From: [EMAIL PROTECTED] (Yitzchak Scott-Thoennes)
Date: Sun, 03 Feb 2002 20:21:45 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/regcomp.c#283 edit
Differences ...
==== //depot/perl/regcomp.c#283 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Mon Feb 4 06:45:05 2002
+++ perl/regcomp.c Mon Feb 4 06:45:05 2002
@@ -2168,6 +2168,8 @@
/* FALL THROUGH*/
case '?': /* (??...) */
logical = 1;
+ if (*RExC_parse != '{')
+ goto unknown;
paren = *RExC_parse++;
/* FALL THROUGH */
case '{': /* (?{...}) */
End of Patch.
