File tree Expand file tree Collapse file tree 1 file changed +6
-6
lines changed
Expand file tree Collapse file tree 1 file changed +6
-6
lines changed Original file line number Diff line number Diff line change @@ -1375,12 +1375,12 @@ object type. Exposed to perl code via Internals::SvREADONLY().
13751375# if defined (DEBUGGING ) && defined(PERL_USE_GCC_BRACE_GROUPS )
13761376/* These get expanded inside other macros that already use a variable _sv */
13771377# define SvPVX (sv ) \
1378- (*({ SV *const _svpvx = MUTABLE_SV(sv); \
1379- assert(PL_valid_types_PVX[SvTYPE(_svpvx ) & SVt_MASK]); \
1380- assert(!isGV_with_GP(_svpvx )); \
1381- assert(!(SvTYPE(_svpvx ) == SVt_PVIO \
1382- && !(IoFLAGS(_svpvx ) & IOf_FAKE_DIRP))); \
1383- &((_svpvx )->sv_u.svu_pv); \
1378+ (*({ SV *const svpvx_ = MUTABLE_SV(sv); \
1379+ assert(PL_valid_types_PVX[SvTYPE(svpvx_ ) & SVt_MASK]); \
1380+ assert(!isGV_with_GP(svpvx_ )); \
1381+ assert(!(SvTYPE(svpvx_ ) == SVt_PVIO \
1382+ && !(IoFLAGS(svpvx_ ) & IOf_FAKE_DIRP))); \
1383+ &((svpvx_ )->sv_u.svu_pv); \
13841384 }))
13851385# ifdef PERL_CORE
13861386# define SvCUR (sv ) \
You can’t perform that action at this time.
0 commit comments