diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-06-15 07:17:17 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-06-15 07:17:17 +0000 |
| commit | 2649f2c19a9dc4cac2cf535de25fe7b36dee8328 (patch) | |
| tree | c20e9da3d3e4d83827df2dfbee77900644959364 /sv.h | |
| parent | ffb05e06c71730527accd4c1399a30e98fb7f6d5 (diff) | |
| download | perl-2649f2c19a9dc4cac2cf535de25fe7b36dee8328.tar.gz | |
Assert SvTYPE is at least PGMV whenever accessing SvSTASH
p4raw-id: //depot/perl@22935
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -742,7 +742,7 @@ and leaves the UTF-8 status as it was. #ifdef DEBUGGING #define SvMAGIC(sv) ((assert(SvTYPE(sv) >= SVt_PVMG)), ((XPVMG*) SvANY(sv))->xmg_magic) -#define SvSTASH(sv) ((XPVMG*) SvANY(sv))->xmg_stash +#define SvSTASH(sv) ((assert(SvTYPE(sv) >= SVt_PVMG)), (XPVMG*) SvANY(sv))->xmg_stash #else #define SvMAGIC(sv) ((XPVMG*) SvANY(sv))->xmg_magic #define SvSTASH(sv) ((XPVMG*) SvANY(sv))->xmg_stash |