diff options
Diffstat (limited to 'ext/B/B.xs')
| -rw-r--r-- | ext/B/B.xs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 716e444ada..e4707787d3 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1930,6 +1930,10 @@ CvDEPTH(cv) B::PADLIST CvPADLIST(cv) B::CV cv + CODE: + RETVAL = CvISXSUB(cv) ? NULL : CvPADLIST(cv); + OUTPUT: + RETVAL #else @@ -1942,6 +1946,14 @@ CvPADLIST(cv) #endif +SV * +CvRESERVED(cv) + B::CV cv + CODE: + RETVAL = newSViv(CvISXSUB(cv) ? PTR2IV(CvRESERVED(cv)) : 0); + OUTPUT: + RETVAL + void CvXSUB(cv) B::CV cv |