From 6f64cf592ba9dad03301b27c6f964ddf6c37f380 Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Wed, 24 Aug 2005 19:06:28 +0000
Subject: [PATCH] Get rid of inappropriate use of croak().  Per report from
 Michael Fuhr.

---
 src/pl/plperl/plperl.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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