diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-11-06 22:21:05 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-11-06 22:21:05 +0000 |
commit | 9c6bc640227cd4fa081b32554378abe794cacfc0 (patch) | |
tree | a489754dba985d4d26d03fd993aed577a36e9a83 /pp_sort.c | |
parent | 797c717188459bd306f22db4f33d8350f22fec7c (diff) | |
download | perl-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |