Yet Another CPAN Grep

Devel-SizeMe ( T/TI/TIMB/Devel-SizeMe-0.19.tar.gz, TIMB, 2013; MetaCPAN )

Devel-SizeMe/SizeMe.xs ( view source; MetaCPAN )

efine ADD_ATTR(st, attr_type, attr_name, attr_value) NOOP

#endif /* PATH_TRACKING */


#if (PERL_BCDVERSION <= 0x5008008)
#  define SVt_LAST 16
#endif


#ifdef PATH_TRACKING

static const char *svtyp

ther than let the first use of the key carry the cost
        */
    }
    return 1;
}

#if (PERL_BCDVERSION >= 0x5009004)
static void
refcounted_he_size(pTHX_ struct state *st, struct refcounted_he *

p_last) is, I suspect, the first symptom of need to handle slabbed allocation of OPs */
#if (PERL_BCDVERSION >= 0x5017000)
if(0)do_op_dump(0, Perl_debug_log, baseop);
#endif

	op_size(aTHX_ baseop->op

Devel-Optrace ( G/GF/GFUJI/Devel-Optrace-0.05.tar.gz, GFUJI, 2013; MetaCPAN )

Devel-Optrace/Optrace.xs ( view source; MetaCPAN )

        return;
    }
    name = AvARRAY(comppad_names)[targ];


    if (SvPOKp(name)) {
#if PERL_BCDVERSION >= 0x5010000
        debpvn(SvPVX(name), SvCUR(name));
#else
        debpv(SvPVX(name));
#e

B-Size2 ( G/GF/GFUJI/B-Size2-2.07.tar.gz, GFUJI, 2013; MetaCPAN )

B-Size2/Size2.xs ( view source; MetaCPAN )

GEXP *rx = PM_GETRE(o);
    int retval = 0;

    if (!rx) {
        return retval;
    }
#if PERL_BCDVERSION >= 0x5010000 /* 5.10 */
    /* TODO */
#else /* pre-5.10 */
    retval = rx->prelen;

    r

warnings-unused ( G/GF/GFUJI/warnings-unused-0.06.tar.gz, GFUJI, 2013; MetaCPAN )

warnings-unused/unused.xs ( view source; MetaCPAN )

t.h"


/* Since these APIs are not public, the definitions are a little complicated */

#if  PERL_BCDVERSION >= 0x5010000
#	undef  PL_tokenbuf /* defined in ppport.h */
#   undef  PL_in_my    /* defin

))

static int
wl_scope_enabled(pTHX_ pMY_CXT){
	if(MY_CXT.global){
		return TRUE;
	}

#if   PERL_BCDVERSION >= 0x5014000
	if(PL_curcop->cop_hints_hash){
		SV* const sv = Perl_refcounted_he_fetch_pvn(

op_hints_hash,
				HINT_KEY, sizeof(HINT_KEY)-1, 0U, 0);
		return sv && SvTRUE(sv);
	}
#elif PERL_BCDVERSION >= 0x5010000
	if(PL_curcop->cop_hints_hash){
		SV* const sv = Perl_refcounted_he_fetch(aTHX

Mojo-Base-XS ( Y/YK/YKO/Mojo-Base-XS-0.07.tar.gz, YKO, 2013; MetaCPAN )

Mojo-Base-XS/XS.xs ( view source; MetaCPAN )

 far the simplest way to be backwards-compatible.
 */
#define PERL_EUPXS_ALWAYS_EXPORT

#if (PERL_BCDVERSION >= 0x5010000)
#define CXA_ENABLE_ENTERSUB_OPTIMIZATION
#endif

//#ifdef CXA_ENABLE_ENTERSUB

TryCatch ( A/AS/ASH/TryCatch-1.003002.tar.gz, ASH, 2013; MetaCPAN )

TryCatch/TryCatch.xs ( view source; MetaCPAN )

  break;

    case OP_RETURN:
      hook_op_ppaddr(op, try_return, NULL);
      break;

#if (PERL_BCDVERSION < 0x5011000)
    case OP_ENTEREVAL:
      /* Do nothing if its still an entereval */

gives the right context to C<return foo()> in a try block */
  do_hook( OP_ENTERTRY );

#if (PERL_BCDVERSION < 0x5011000)
  /* Prior to 5.10.1(?) the ENTERTRY starts out as an ENTEREVAL and doesn't ge

POSIX-pselect ( G/GF/GFUJI/POSIX-pselect-0.03.tar.gz, GFUJI, 2012; MetaCPAN )

POSIX-pselect/src/POSIX-pselect.xs ( view source; MetaCPAN )

c void
setup_sigset(pTHX_ sigset_t* const sigmask, SV* const arg) {
    SvGETMAGIC(arg);
#if PERL_BCDVERSION > 0x5015002
    if( sv_isobject(arg) && sv_derived_from(arg, "POSIX::SigSet") && SvPOK(SvRV

namespace-alias ( F/FL/FLORA/namespace-alias-0.02.tar.gz, FLORA, 2012; MetaCPAN )

namespace-alias/alias.xs ( view source; MetaCPAN )

ERN.h"
#include "perl.h"
#include "XSUB.h"

#define NEED_PL_parser
#include "ppport.h"

#if (PERL_BCDVERSION >= 0x5009005)
#define PL_lex_inwhat (PL_parser->lex_inwhat)
#endif

#include "hook_op_check

B-Foreach-Iterator ( G/GF/GFUJI/B-Foreach-Iterator-0.07.tar.gz, GFUJI, 2010; MetaCPAN )

B-Foreach-Iterator/Iterator.xs ( view source; MetaCPAN )

cx) (CxTYPE(cx) == CXt_LOOP && CxITERVAR(cx) != NULL)
#endif

#ifndef CX_LOOP_NEXTOP_GET
#if PERL_BCDVERSION >= 0x5013005
#define CX_LOOP_NEXTOP_GET(cx) ((cx)->blk_loop.my_op->op_nextop)
#else
#define