PL_signals PERL_SIGNALS_UNSAFE_FLAG

#ifndef PERL_SIGNALS_UNSAFE_FLAG

#define PERL_SIGNALS_UNSAFE_FLAG 0x0001

__NEED_VAR__ U32 PL_signals = PERL_SIGNALS_UNSAFE_FLAG;

#endif

#define NEED_PL_signals

U32 get_PL_signals_1(void) { return PL_signals; }

extern U32 get_PL_signals_2(void); extern U32 get_PL_signals_3(void);

int compare_PL_signals() CODE: { U32 ref = get_PL_signals_1(); RETVAL = ref == get_PL_signals_2() && ref == get_PL_signals_3(); } OUTPUT: RETVAL

ok(Devel::PPPort::compare_PL_signals());

6 POD Errors

The following errors were encountered while parsing the POD:

Around line 18:

Unknown directive: =provides

Around line 23:

Unknown directive: =implementation

Around line 33:

Unknown directive: =xsinit

Around line 37:

Unknown directive: =xsmisc

Around line 47:

Unknown directive: =xsubs

Around line 59:

Unknown directive: =tests