diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-07-08 15:57:16 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-07-08 15:57:16 +0000 |
| commit | 547f15c3f9c804a1f8fe9c9f91b4907c17953b29 (patch) | |
| tree | 1b91f3b2ebef3824c5135a597e64991d63a703e9 | |
| parent | 27ed30b88a644381a2e2f6c2b2814412d3b5c78c (diff) | |
| download | perl-547f15c3f9c804a1f8fe9c9f91b4907c17953b29.tar.gz | |
DEFSV causes GvSVn() to be used in lvalue context.
Not sure if instead we should recode DEFSV to avoid this, and leave
GvSVn() as rvalue only, like its namesakes.
p4raw-id: //depot/perl@25099
| -rw-r--r-- | gv.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -42,9 +42,9 @@ Return the SV from the GV. #define GvSV(gv) (GvGP(gv)->gp_sv) #ifdef PERL_DONT_CREATE_GVSV -#define GvSVn(gv) (GvGP(gv)->gp_sv ? \ - GvGP(gv)->gp_sv : \ - GvGP(gv_SVadd(gv))->gp_sv) +#define GvSVn(gv) (*(GvGP(gv)->gp_sv ? \ + &(GvGP(gv)->gp_sv) : \ + &(GvGP(gv_SVadd(gv))->gp_sv))) #else #define GvSVn(gv) GvSV(gv) #endif |