diff options
| author | skv <skv@FreeBSD.org> | 2009-01-14 16:16:24 +0800 |
|---|---|---|
| committer | skv <skv@FreeBSD.org> | 2009-01-14 16:16:24 +0800 |
| commit | 806f3faa00f3646995477ad67b10fe90364365a9 (patch) | |
| tree | 248df1dff403e7415aff8faaefc914ac9c639fc2 /lang/perl5.8 | |
| parent | 5807f208411a54a6c8c66ccb5a499ef868575b63 (diff) | |
| download | freebsd-ports-gnome-806f3faa00f3646995477ad67b10fe90364365a9.tar.gz freebsd-ports-gnome-806f3faa00f3646995477ad67b10fe90364365a9.tar.zst freebsd-ports-gnome-806f3faa00f3646995477ad67b10fe90364365a9.zip | |
Unbreak build of threaded perl.
PR: ports/130529
Submitted by: Shin-ichi Yoshimoto <yosimoto xx waishi.jp>
Diffstat (limited to 'lang/perl5.8')
| -rw-r--r-- | lang/perl5.8/files/patch-sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lang/perl5.8/files/patch-sv.c b/lang/perl5.8/files/patch-sv.c index aeb160db81bd..4a4a6d840d26 100644 --- a/lang/perl5.8/files/patch-sv.c +++ b/lang/perl5.8/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; |