summaryrefslogtreecommitdiff
path: root/pp_sort.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-11-06 22:21:05 +0000
committerNicholas Clark <nick@ccl4.org>2006-11-06 22:21:05 +0000
commit9c6bc640227cd4fa081b32554378abe794cacfc0 (patch)
treea489754dba985d4d26d03fd993aed577a36e9a83 /pp_sort.c
parent797c717188459bd306f22db4f33d8350f22fec7c (diff)
downloadperl-9c6bc640227cd4fa081b32554378abe794cacfc0.tar.gz
assert() that SvPV_set() isn't used on arrays.
p4raw-id: //depot/perl@29221
Diffstat (limited to 'pp_sort.c')
-rw-r--r--pp_sort.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_sort.c b/pp_sort.c
index dfcdac4bfd..6899ff491b 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1770,12 +1770,12 @@ S_sortcv_stacked(pTHX_ SV *a, SV *b)
SV** ary = AvALLOC(av);
if (AvARRAY(av) != ary) {
AvMAX(av) += AvARRAY(av) - AvALLOC(av);
- SvPV_set(av, (char*)ary);
+ AvARRAY(av) = ary;
}
if (AvMAX(av) < 1) {
AvMAX(av) = 1;
Renew(ary,2,SV*);
- SvPV_set(av, (char*)ary);
+ AvARRAY(av) = ary;
}
}
AvFILLp(av) = 1;