mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Andrew Dunstan 2010-01-28 23:06:09 +00:00
parent b0509ef601
commit 1f98cccb94
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/pl/plperl/plperl.c
View File

@ -1,7 +1,7 @@
/********************************************************************** /**********************************************************************
* plperl.c - perl as a procedural language for PostgreSQL * 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) { if (count == 1) {
GV *sub_glob = (GV*)POPs; GV *sub_glob = (GV*)POPs;
if (sub_glob && SvTYPE(sub_glob) == SVt_PVGV) if (sub_glob && SvTYPE(sub_glob) == SVt_PVGV) {
subref = newRV_inc((SV*)GvCVu((GV*)sub_glob)); SV *sv = (SV*)GvCVu((GV*)sub_glob);
if (sv)
subref = newRV_inc(sv);
}
} }
PUTBACK; PUTBACK;