From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Wed, 24 Aug 2005 19:06:28 +0000 (+0000)
Subject: Get rid of inappropriate use of croak().  Per report from Michael Fuhr.
X-Git-Tag: REL8_1_0BETA1~12
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=6f64cf592ba9dad03301b27c6f964ddf6c37f380;p=thirdparty%2Fpostgresql.git

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

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index b6dfb96102e..5f9246187c9 100644
--- 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;