Attempt to fix core-specific logic in IPC::Open2 tests

[p5sagit/p5-mst-13.2.git] / perly.y

diff --git a/perly.y b/perly.y
index c07f48a..bcdd434 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -1238,6 +1238,7 @@ term      :       termbinop
                        {
                          $$ = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
                                newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
+                         TOKEN_GETMAD($1,$$,'X');
                        }
        ;