diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-02 06:07:53 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-02 06:07:53 +0000 |
| commit | e1f795dc699c88c2d9eb4a46fe629483760393c2 (patch) | |
| tree | b441815162375621cd823107a2da6a026bd2ce1e /XSUB.h | |
| parent | 533968fe05e828818d78b731fade41cae15a5f2a (diff) | |
| download | perl-e1f795dc699c88c2d9eb4a46fe629483760393c2.tar.gz | |
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
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -114,7 +114,7 @@ is a lexical $_ in scope. #define XSINTERFACE_FUNC_SET(cv,f) \ CvXSUBANY(cv).any_dxptr = (void (*) (pTHX_ void*))(f) -#define dUNDERBAR I32 padoff_du = pad_findmy("$_") +#define dUNDERBAR I32 padoff_du = Perl_find_rundefsvoffset() #define UNDERBAR ((padoff_du == NOT_IN_PAD \ || PAD_COMPNAME_FLAGS(padoff_du) & SVpad_OUR) \ ? DEFSV : PAD_SVl(padoff_du)) |