Subject: | Want broken in blead Perl |
Change 33028 to blead changed the location of the .lval element.
The attached patch uses the appropriate macro to obtain the lvalue.
This change should be backwards compatible.
Subject: | want.patch |
--- Want.xs.orig 2008-01-23 12:27:54.034441400 -0500
+++ Want.xs 2008-01-23 12:27:57.816175400 -0500
@@ -500,7 +500,7 @@
if (!cx) TOO_FAR;
if (CvLVALUE(cx->blk_sub.cv))
- RETVAL = cx->blk_sub.lval;
+ RETVAL = CxLVAL(cx);
else
RETVAL = 0;
OUTPUT: