diff options
| author | Sergey Skvortsov <skv@FreeBSD.org> | 2009-01-14 08:16:24 +0000 |
|---|---|---|
| committer | Sergey Skvortsov <skv@FreeBSD.org> | 2009-01-14 08:16:24 +0000 |
| commit | b1b787bb6530634608d4a92c1e86d62e9ea0f22c (patch) | |
| tree | c4f99fe029d294c17fe83561bc245cbd6ee75fcd /lang | |
| parent | 3a30a94cbfa5d0efc59f18a57770b3d88b1b8daf (diff) | |
| download | ports-b1b787bb6530634608d4a92c1e86d62e9ea0f22c.tar.gz ports-b1b787bb6530634608d4a92c1e86d62e9ea0f22c.zip | |
Unbreak build of threaded perl.
PR: ports/130529
Submitted by: Shin-ichi Yoshimoto <yosimoto xx waishi.jp>
Notes
Notes:
svn path=/head/; revision=226051
Diffstat (limited to 'lang')
| -rw-r--r-- | lang/perl5.10/files/patch-sv.c | 2 | ||||
| -rw-r--r-- | lang/perl5.12/files/patch-sv.c | 2 | ||||
| -rw-r--r-- | lang/perl5.14/files/patch-sv.c | 2 | ||||
| -rw-r--r-- | lang/perl5.16/files/patch-sv.c | 2 | ||||
| -rw-r--r-- | lang/perl5.8/files/patch-sv.c | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/lang/perl5.10/files/patch-sv.c b/lang/perl5.10/files/patch-sv.c index aeb160db81bd..4a4a6d840d26 100644 --- a/lang/perl5.10/files/patch-sv.c +++ b/lang/perl5.10/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; diff --git a/lang/perl5.12/files/patch-sv.c b/lang/perl5.12/files/patch-sv.c index aeb160db81bd..4a4a6d840d26 100644 --- a/lang/perl5.12/files/patch-sv.c +++ b/lang/perl5.12/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; 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; diff --git a/lang/perl5.16/files/patch-sv.c b/lang/perl5.16/files/patch-sv.c index aeb160db81bd..4a4a6d840d26 100644 --- a/lang/perl5.16/files/patch-sv.c +++ b/lang/perl5.16/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; 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; |