From f1bc46b00671022cdd85c458c53bdbd10853903c Mon Sep 17 00:00:00 2001 From: Sebastian Harl Date: Fri, 30 May 2008 00:12:36 +0200 Subject: [PATCH] perl plugin: Fixed a segfault that appeared in Perl 5.10. In Perl 5.10, av_clear() (amongst others) does no longer allow NULL for the passed array object pointer, thus we have to check for it ourselves. Signed-off-by: Sebastian Harl Signed-off-by: Florian Forster --- src/perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/perl.c b/src/perl.c index 9bd3b4d2..2bd03afd 100644 --- a/src/perl.c +++ b/src/perl.c @@ -1118,7 +1118,7 @@ static c_ithread_t *c_ithread_create (PerlInterpreter *base) aTHX = t->interp; - if (NULL != base) { + if ((NULL != base) && (NULL != PL_endav)) { av_clear (PL_endav); av_undef (PL_endav); PL_endav = Nullav; -- 2.30.2