This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
b8a061255f0721fb4ceebe1384a4080f968feeea
[perl5.git] / ext / File-DosGlob / DosGlob.xs
1 #define PERL_NO_GET_CONTEXT
2
3 #include "EXTERN.h"
4 #include "perl.h"
5 #include "XSUB.h"
6
7 MODULE = File::DosGlob          PACKAGE = File::DosGlob
8
9 PROTOTYPES: DISABLE
10
11 SV *
12 _callsite(...)
13     CODE:
14         RETVAL = newSVpvn(
15                    (char *)&cxstack[cxstack_ix].blk_sub.retop, sizeof(OP *)
16                  );
17     OUTPUT:
18         RETVAL