Work round what appears to be a bug in Sun C++ 5.8 2005/10/13

If we just cast GvSVn(gv) to void, it ignores evaluating it for
its side effect.

p4raw-id: //depot/perl@30903

diff --git a/gv.c b/gv.c
index f48ef98..cbe521b 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -291,7 +291,11 @@ S_gv_init_sv(pTHX_ GV *gv, I32 sv_type)
     case SVt_PVGV:
        break;
     default:
-       (void)GvSVn(gv);
+       if(GvSVn(gv)) {
+           /* Work round what appears to be a bug in Sun C++ 5.8 2005/10/13
+              If we just cast GvSVn(gv) to void, it ignores evaluating it for
+              its side effect */
+       }
 #endif
     }
 }