Permalink
Browse files

Add some more meat to the plperl6_func_handler skeleton

  • Loading branch information...
leto committed Jun 9, 2010
1 parent 3f8e574 commit 8c00aa8b25a141a326e983bf2756becad1bdf7a8
Showing with 9 additions and 0 deletions.
  1. +9 −0 plparrot.c
View
@@ -180,6 +180,15 @@ static Datum
plperl6_func_handler(PG_FUNCTION_ARGS)
{
Datum retval, procsrc_datum;
char *proc_src, *errmsg, *tmp;
char *perl6_src;
char perl6_begin[7] = "sub r {";
char perl6_end[1] = "}";
int numargs, rc, i, length;
if ((rc = SPI_connect()) != SPI_OK_CONNECT)
elog(ERROR, "SPI_connect failed: %s", SPI_result_code_string(rc));
retval = PG_GETARG_DATUM(0);
return retval;
}

0 comments on commit 8c00aa8

Please sign in to comment.