Commitf604891

committed

Allow building with perl 5.14.

Patch from Alex Hunsaker.

1 parentb9544a0 commitf604891Copy full SHA for f604891

File tree

-1

lines changed

-1

lines changed

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -687,7 +687,7 @@ plperl_trusted_init(void)`
`687`	`687`	`if (!isGV_with_GP(sv)\|\| !GvCV(sv))`
`688`	`688`	`continue;`
`689`	`689`	`SvREFCNT_dec(GvCV(sv));/* free the CV */`
`690`		`-GvCV(sv)=NULL;/* prevent call via GV */`
	`690`	`+GvCV_set(sv,NULL);/* prevent call via GV */`
`691`	`691`	`}`
`692`	`692`	`hv_clear(stash);`
`693`	`693`	`/* invalidate assorted caches */`

Lines changed: 5 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -43,6 +43,11 @@`
`43`	`43`	`#undef bool`
`44`	`44`	`#endif`
`45`	`45`
	`46`	`+/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */`
	`47`	`+#ifndefGvCV_set`
	`48`	`+#defineGvCV_set(gv,cv)(GvCV(gv) = cv)`
	`49`	`+#endif`
	`50`	`+`
`46`	`51`	`/* routines from spi_internal.c */`
`47`	`52`	`intspi_DEBUG(void);`
`48`	`53`	`intspi_LOG(void);`

Comments

(0)