@@ -1384,21 +1384,21 @@ object type. Exposed to perl code via Internals::SvREADONLY().
13841384 }))
13851385# ifdef PERL_CORE
13861386# define SvCUR (sv ) \
1387- ({ const SV *const _svcur = (const SV *)(sv); \
1388- assert(PL_valid_types_PVX[SvTYPE(_svcur ) & SVt_MASK]); \
1389- assert(!isGV_with_GP(_svcur )); \
1390- assert(!(SvTYPE(_svcur ) == SVt_PVIO \
1391- && !(IoFLAGS(_svcur ) & IOf_FAKE_DIRP))); \
1392- (((XPV*) MUTABLE_PTR(SvANY(_svcur )))->xpv_cur); \
1387+ ({ const SV *const svcur_ = (const SV *)(sv); \
1388+ assert(PL_valid_types_PVX[SvTYPE(svcur_ ) & SVt_MASK]); \
1389+ assert(!isGV_with_GP(svcur_ )); \
1390+ assert(!(SvTYPE(svcur_ ) == SVt_PVIO \
1391+ && !(IoFLAGS(svcur_ ) & IOf_FAKE_DIRP))); \
1392+ (((XPV*) MUTABLE_PTR(SvANY(svcur_ )))->xpv_cur); \
13931393 })
13941394# else
13951395# define SvCUR (sv ) \
1396- (*({ const SV *const _svcur = (const SV *)(sv); \
1397- assert(PL_valid_types_PVX[SvTYPE(_svcur ) & SVt_MASK]); \
1398- assert(!isGV_with_GP(_svcur )); \
1399- assert(!(SvTYPE(_svcur ) == SVt_PVIO \
1400- && !(IoFLAGS(_svcur ) & IOf_FAKE_DIRP))); \
1401- &(((XPV*) MUTABLE_PTR(SvANY(_svcur )))->xpv_cur); \
1396+ (*({ const SV *const svcur_ = (const SV *)(sv); \
1397+ assert(PL_valid_types_PVX[SvTYPE(svcur_ ) & SVt_MASK]); \
1398+ assert(!isGV_with_GP(svcur_ )); \
1399+ assert(!(SvTYPE(svcur_ ) == SVt_PVIO \
1400+ && !(IoFLAGS(svcur_ ) & IOf_FAKE_DIRP))); \
1401+ &(((XPV*) MUTABLE_PTR(SvANY(svcur_ )))->xpv_cur); \
14021402 }))
14031403# endif
14041404# define SvIVX (sv ) \
0 commit comments