From 131b3ad08b25bcfcb31b9933319b3186bdd13248 Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 10 Oct 2004 19:18:00 +0000
Subject: Turn regcomp into a list op

p4raw-id: //depot/perl@23357
---
 perly.y | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'perly.y')

diff --git a/perly.y b/perly.y
index 0d00b95c3b..11c1bd3e3d 100644
--- a/perly.y
+++ b/perly.y
@@ -675,10 +675,8 @@ term	:	termbinop
 			{ $$ = newOP($1, OPf_SPECIAL); }
 	|	FUNC1 '(' expr ')'                   /* not($foo) */
 			{ $$ = newUNOP($1, 0, $3); }
-	|	PMFUNC '(' term ')'                  /* /foo/ */
-			{ $$ = pmruntime($1, $3, Nullop); }
-	|	PMFUNC '(' term ',' term ')'         /* s/foo/bar/ (or tr) */
-			{ $$ = pmruntime($1, $3, $5); }
+	|	PMFUNC '(' argexpr ')'           /* m//, s///, tr/// */
+			{ $$ = pmruntime($1, $3, 1); }
 	|	WORD
 	|	listop
 	;
-- 
cgit v1.2.1