From 97396817e36b2d8e9837c48f116a3606a3df4464 Mon Sep 17 00:00:00 2001
From: "Jonathan \"Duke\" Leto" <jonathan@leto.net>
Date: Wed, 28 Jul 2010 10:00:48 -0700
Subject: [PATCH] Slightly better error messages for when we detect an invalid
 interpreter

---
 plparrot.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/plparrot.c b/plparrot.c
index 33ffdb9..e168300 100644
--- a/plparrot.c
+++ b/plparrot.c
@@ -401,7 +401,7 @@ plperl6u_call_handler(PG_FUNCTION_ARGS)
     Datum retval;
     interp = p6_interp;
     if(!interp) {
-        elog(ERROR,"Invalid Parrot interpreter!");
+        elog(ERROR,"Invalid Parrot interpreter for PL/Perl6u!");
     }
     retval = plperl6_call_handler(fcinfo);
     interp = trusted_interp;
@@ -416,7 +416,7 @@ plperl6_call_handler(PG_FUNCTION_ARGS)
     elog(NOTICE, "plperl6_call_handler");
     interp = p6_interp;
     if(!interp) {
-        elog(ERROR,"Invalid Parrot interpreter!");
+        elog(ERROR,"Invalid Parrot interpreter for PL/Perl6!");
     }
     PG_TRY();
     {