From c2296ed5b1afe2359bc4001460b31475d1b9f67f Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Fri, 6 Jan 2006 18:48:28 +0000
Subject: [PATCH] fix overload_simple case

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8261 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Source/Modules/perl5.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SWIG/Source/Modules/perl5.cxx b/SWIG/Source/Modules/perl5.cxx
index 2949de954..2ababc14f 100644
--- a/SWIG/Source/Modules/perl5.cxx
+++ b/SWIG/Source/Modules/perl5.cxx
@@ -726,7 +726,7 @@ public:
 	   "XSRETURN(argvi);\n",
 	   "fail:\n",
 	   cleanup,
-	   "croak(Nullch);\n"
+	   "croak(\"swig/perl error\");\n"
 	   "XSRETURN(0);\n"
 	   "}\n",
 	   "}\n",