Commitcb252c2

committed

Allow building with perl 5.14.

Patch from Alex Hunsaker.

1 parent39dbc62 commitcb252c2Copy full SHA for cb252c2

File tree

-1

lines changed

-1

lines changed

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -874,7 +874,7 @@ plperl_trusted_init(void)`
`874`	`874`	`if (!isGV_with_GP(sv)\|\| !GvCV(sv))`
`875`	`875`	`continue;`
`876`	`876`	`SvREFCNT_dec(GvCV(sv));/* free the CV */`
`877`		`-GvCV(sv)=NULL;/* prevent call via GV */`
	`877`	`+GvCV_set(sv,NULL);/* prevent call via GV */`
`878`	`878`	`}`
`879`	`879`	`hv_clear(stash);`
`880`	`880`

Lines changed: 5 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -42,6 +42,11 @@`
`42`	`42`	`#undef bool`
`43`	`43`	`#endif`
`44`	`44`
	`45`	`+/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */`
	`46`	`+#ifndefGvCV_set`
	`47`	`+#defineGvCV_set(gv,cv)(GvCV(gv) = cv)`
	`48`	`+#endif`
	`49`	`+`
`45`	`50`	`/* declare routines from plperl.c for access by .xs files */`
`46`	`51`	`HVplperl_spi_exec(char,int);`
`47`	`52`	`voidplperl_return_next(SV*);`

Comments

(0)