The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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

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());

5 POD Errors

The following errors were encountered while parsing the POD:

Around line 18:

Unknown directive: =provides

Around line 22:

Unknown directive: =implementation

Around line 32:

Unknown directive: =xsmisc

Around line 42:

Unknown directive: =xsubs

Around line 54:

Unknown directive: =tests