From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 11 Apr 2007 07:39:21 +0000 (+0000)
Subject: Work round what appears to be a bug in Sun C++ 5.8 2005/10/13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dbdce04c0d799286b0e4da51c403118fec194d47;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
     }
 }