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 /cop.h | |
| 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 'cop.h')
| -rw-r--r-- | cop.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -320,7 +320,7 @@ struct block_sub { #define CLEAR_ARGARRAY(ary) \ STMT_START { \ AvMAX(ary) += AvARRAY(ary) - AvALLOC(ary); \ - SvPV_set(ary, (char*)AvALLOC(ary)); \ + AvARRAY(ary) = AvALLOC(ary); \ AvFILLp(ary) = -1; \ } STMT_END |