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 /sv.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 'sv.h')
| -rw-r--r-- | sv.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1239,6 +1239,7 @@ the scalar's value cannot change unless written to. (((XPVNV*)SvANY(sv))->xnv_u.xnv_nv = (val)); } STMT_END #define SvPV_set(sv, val) \ STMT_START { assert(SvTYPE(sv) >= SVt_PV); \ + assert(SvTYPE(sv) != SVt_PVAV); \ assert(SvTYPE(sv) != SVt_PVHV); \ assert(!isGV_with_GP(sv)); \ ((sv)->sv_u.svu_pv = (val)); } STMT_END |