patch-plperl-7.0.2.diff

328c328
< 	if (SvTRUE(GvSV(PL_errgv)))
---
> 	if (SvTRUE(GvSV(errgv)))
334c334
< 		elog(ERROR, "creation of function failed : %s", SvPV(GvSV(PL_errgv), PL_na));
---
> 		elog(ERROR, "creation of function failed : %s", SvPV(GvSV(errgv), na));
444c444
< 	if (SvTRUE(GvSV(PL_errgv)))
---
> 	if (SvTRUE(GvSV(errgv)))
450c450
< 		elog(ERROR, "plperl : error from function : %s", SvPV(GvSV(PL_errgv), PL_na));
---
> 		elog(ERROR, "plperl : error from function : %s", SvPV(GvSV(errgv), na));
654c654
< 		(SvPV(perlret, PL_na),
---
> 		(SvPV(perlret, na),
2192c2192
< 	output = perl_eval_pv(SvPV(output, PL_na), TRUE);
---
> 	output = perl_eval_pv(SvPV(output, na), TRUE);