/usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/ext/Devel/PPPort/module2.c

Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/ext/Devel/PPPort/module2.c



#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#define NEED_newCONSTSUB_GLOBAL
#include "ppport.h"

void test2(void)
{
	newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_2", newSViv(2));
}

(Return to Plan 9 Home Page)