We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2a7144d commit 4f33c73Copy full SHA for 4f33c73
sv.h
@@ -1441,9 +1441,9 @@ object type. Exposed to perl code via Internals::SvREADONLY().
1441
&(((XPVMG*) MUTABLE_PTR(SvANY(svmagic_)))->xmg_u.xmg_magic); \
1442
}))
1443
# define SvSTASH(sv) \
1444
- (*({ const SV *const _svstash = (const SV *)(sv); \
1445
- assert(SvTYPE(_svstash) >= SVt_PVMG); \
1446
- &(((XPVMG*) MUTABLE_PTR(SvANY(_svstash)))->xmg_stash); \
+ (*({ const SV *const svstash_ = (const SV *)(sv); \
+ assert(SvTYPE(svstash_) >= SVt_PVMG); \
+ &(((XPVMG*) MUTABLE_PTR(SvANY(svstash_)))->xmg_stash); \
1447
1448
# else /* Below is not DEBUGGING or can't use brace groups */
1449
# define SvPVX(sv) ((sv)->sv_u.svu_pv)
0 commit comments