From dbdce04c0d799286b0e4da51c403118fec194d47 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 11 Apr 2007 07:39:21 +0000
Subject: [PATCH] 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
---
 gv.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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