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_hot.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_hot.c')
-rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2856,13 +2856,13 @@ try_autoload: SV **ary = AvALLOC(av); if (AvARRAY(av) != ary) { AvMAX(av) += AvARRAY(av) - AvALLOC(av); - SvPV_set(av, (char*)ary); + AvARRAY(av) = ary; } if (items > AvMAX(av) + 1) { AvMAX(av) = items - 1; Renew(ary,items,SV*); AvALLOC(av) = ary; - SvPV_set(av, (char*)ary); + AvARRAY(av) = ary; } } Copy(MARK,AvARRAY(av),items,SV*); |