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

1 files changed, 5 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index f48ef9855c..cbe521bb8d 100644
--- 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
     }
 }