From b1b787bb6530634608d4a92c1e86d62e9ea0f22c Mon Sep 17 00:00:00 2001 From: Sergey Skvortsov Date: Wed, 14 Jan 2009 08:16:24 +0000 Subject: Unbreak build of threaded perl. PR: ports/130529 Submitted by: Shin-ichi Yoshimoto --- lang/perl5.14/files/patch-sv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lang/perl5.14/files/patch-sv.c') diff --git a/lang/perl5.14/files/patch-sv.c b/lang/perl5.14/files/patch-sv.c index aeb160db81bd..4a4a6d840d26 100644 --- a/lang/perl5.14/files/patch-sv.c +++ b/lang/perl5.14/files/patch-sv.c @@ -6,7 +6,7 @@ case SVt_PVAV: - if (AvARRAY((AV*)sstr)) { + /* avoid cloning an empty array */ -+ if (AvARRAY((AV*)sstr) && AvFILLp((AV*)sstr >= 0) { ++ if (AvARRAY((AV*)sstr) && AvFILLp((AV*)sstr) >= 0) { SV **dst_ary, **src_ary; SSize_t items = AvFILLp((AV*)sstr) + 1; -- cgit v1.2.3