Get rid of inappropriate use of croak(). Per report from Michael Fuhr.

tglsfdc · tglsfdc · commit 6f64cf592ba9 · 2005-08-24T19:06:28.000Z
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
@@ -33,7 +33,7 @@
  *	  ENHANCEMENTS, OR MODIFICATIONS.
  *
  * IDENTIFICATION
- *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.91 2005/08/24 18:16:56 tgl Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.92 2005/08/24 19:06:28 tgl Exp $
  *
  **********************************************************************/
 
@@ -370,7 +370,7 @@ plperl_convert_to_pg_array(SV *src)
 	SPAGAIN ;
 
 	if (count != 1)
-		croak("Big trouble\n") ;
+		elog(ERROR, "unexpected _plperl_to_pg_array failure");
 
 	rv = POPs;
 			   

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@`
`33`	`33`	`* ENHANCEMENTS, OR MODIFICATIONS.`
`34`	`34`	`*`
`35`	`35`	`* IDENTIFICATION`
`36`		`- * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.91 2005/08/24 18:16:56 tgl Exp $`
	`36`	`+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.92 2005/08/24 19:06:28 tgl Exp $`
`37`	`37`	`*`
`38`	`38`	`**********************************************************************/`
`39`	`39`
`@@ -370,7 +370,7 @@ plperl_convert_to_pg_array(SV *src)`
`370`	`370`	`SPAGAIN ;`
`371`	`371`
`372`	`372`	`if (count != 1)`
`373`		`- croak("Big trouble\n") ;`
	`373`	`+ elog(ERROR, "unexpected _plperl_to_pg_array failure");`
`374`	`374`
`375`	`375`	`rv = POPs;`
`376`	`376`