X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly.y;h=7d392421602fdd2217cd854cc99125c4782bf9e4;hb=048912995c485d977c9d43b63b517de870c722d5;hp=4e00281bcbfaeadae82372d77dd505394b9f0ee5;hpb=caec1979d2248e31dd6f584f10772d0aa0d7cf92;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perly.y b/perly.y
index 4e00281..7d39242 100644
--- a/perly.y
+++ b/perly.y
@@ -627,7 +627,7 @@ term	:	termbinop
 	|	termunop
 	|	anonymous
 	|	termdo
-	|	term '?' expr ':' term
+	|	term '?' term ':' term
 			{ $$ = newCONDOP(0, $1, $3, $5); }
 	|	REFGEN term                          /* \$x, \@y, \%z */
 			{ $$ = newUNOP(OP_REFGEN, 0, mod($2,OP_REFGEN)); }