Make the dUNDERBAR/UNDERBAR macros work as advertised.

While we're at it, use the same trick to make reverse()
work correctly with lexical $_.

p4raw-id: //depot/perl@22889

1 files changed, 13 insertions, 0 deletions

diff --git a/pad.c b/pad.c
index d7799c97a6..0b0491c640 100644
--- a/pad.c
+++ b/pad.c
@@ -582,6 +582,19 @@ Perl_pad_findmy(pTHX_ char *name)
     return NOT_IN_PAD;
 }
 
+/*
+ * Returns the offset of a lexical $_, if there is one, at run time.
+ * Used by the UNDERBAR XS macro.
+ */
+
+PADOFFSET
+Perl_find_rundefsvoffset()
+{
+    SV *out_sv;
+    int out_flags;
+    return pad_findlex("$_", find_runcv(NULL), PL_curcop->cop_seq, 1,
+	    Null(SV**), &out_sv, &out_flags);
+}
 
 /*
 =for apidoc pad_findlex