Initialize variable to quiet compiler.

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 5f40f1e501aed61079d6aae16ca57721dd4a7e63..72e1e5106a679a463db19c61ae96ef321eb309f2 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -1990,7 +1990,7 @@ plperl_func_handler(PG_FUNCTION_ARGS)
 {
        plperl_proc_desc *prodesc;
        SV                 *perlret;
-       Datum           retval;
+       Datum           retval = 0;
        ReturnSetInfo *rsi;
        ErrorContextCallback pl_error_context;
        bool            has_retval = false;