Fix return values in PL/ParrotU

leto · May 27, 2010 · 93d4a76 · 93d4a76
1 parent 3a96e63
commit 93d4a76
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/plparrot.c b/plparrot.c
@@ -159,9 +159,11 @@ PG_FUNCTION_INFO_V1(plparrotu_call_handler);
 static Datum
 plparrotu_func_handler(PG_FUNCTION_ARGS)
 {
+    Datum retval;
     interp = untrusted_interp;
-    return plparrot_func_handler(fcinfo);
+    retval = plparrot_func_handler(fcinfo);
     interp = trusted_interp;
+    return retval;
 }
 
 /*
@@ -309,9 +311,11 @@ plparrot_push_pgdatatype_pmc(Parrot_PMC func_args, FunctionCallInfo fcinfo, int
 Datum
 plparrotu_call_handler(PG_FUNCTION_ARGS)
 {
+    Datum retval;
     interp = untrusted_interp;
-    plparrot_call_handler(fcinfo);
+    retval = plparrot_call_handler(fcinfo);
     interp = trusted_interp;
+    return retval;
 }
 
 Datum

diff --git a/t/sql/test.sql b/t/sql/test.sql
@@ -15,7 +15,7 @@ BEGIN;
 \i plparrot.sql
 
 -- Plan the tests.
-SELECT plan(31);
+SELECT plan(32);
 
 CREATE OR REPLACE FUNCTION create_plparrot()
 RETURNS BOOLEAN