summaryrefslogtreecommitdiff
path: root/pp_hot.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_hot.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_hot.c')
-rw-r--r--pp_hot.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_hot.c b/pp_hot.c
index d1873b2a32..d2e8e87b18 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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*);