Commitccd69b8

committed

Allow building with perl 5.14.

Patch from Alex Hunsaker.

1 parent36a1ba9 commitccd69b8Copy full SHA for ccd69b8

File tree

-1

lines changed

-1

lines changed

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -926,7 +926,7 @@ plperl_trusted_init(void)`
`926`	`926`	`if (!isGV_with_GP(sv)\|\| !GvCV(sv))`
`927`	`927`	`continue;`
`928`	`928`	`SvREFCNT_dec(GvCV(sv));/* free the CV */`
`929`		`-GvCV(sv)=NULL;/* prevent call via GV */`
	`929`	`+GvCV_set(sv,NULL);/* prevent call via GV */`
`930`	`930`	`}`
`931`	`931`	`hv_clear(stash);`
`932`	`932`

Lines changed: 5 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -85,6 +85,11 @@`
`85`	`85`	`(U32)HeKUTF8(he))`
`86`	`86`	`#endif`
`87`	`87`
	`88`	`+/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */`
	`89`	`+#ifndefGvCV_set`
	`90`	`+#defineGvCV_set(gv,cv)(GvCV(gv) = cv)`
	`91`	`+#endif`
	`92`	`+`
`88`	`93`	`/* declare routines from plperl.c for access by .xs files */`
`89`	`94`	`HVplperl_spi_exec(char,int);`
`90`	`95`	`voidplperl_return_next(SV*);`

Comments

(0)