From: Andrew Dunstan <andrew@dunslane.net>
Date: Thu, 28 Jan 2010 23:06:09 +0000 (+0000)
Subject: Fix bug found by warning from recent gcc. patch from Tim Bunce.
X-Git-Tag: REL9_0_0~1045
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=1f98cccb941823d241120ca86df264d7ebbcaec5;p=pg-rex%2Fsyncrep.git

Fix bug found by warning from recent gcc. patch from Tim Bunce.
---

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 09ffe3047b..1a1e264e9d 100644
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -1,7 +1,7 @@
 /**********************************************************************
  * plperl.c - perl as a procedural language for PostgreSQL
  *
- *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.161 2010/01/26 23:11:56 adunstan Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.162 2010/01/28 23:06:09 adunstan Exp $
  *
  **********************************************************************/
 
@@ -1113,8 +1113,11 @@ plperl_create_sub(plperl_proc_desc *prodesc, char *s, Oid fn_oid)
 
 	if (count == 1) {
 		GV *sub_glob = (GV*)POPs;
-		if (sub_glob && SvTYPE(sub_glob) == SVt_PVGV)
-			subref = newRV_inc((SV*)GvCVu((GV*)sub_glob));
+		if (sub_glob && SvTYPE(sub_glob) == SVt_PVGV) {
+			SV *sv = (SV*)GvCVu((GV*)sub_glob);
+			if (sv)
+				subref = newRV_inc(sv);
+		}
 	}
 
 	PUTBACK;