From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 30 Oct 2002 09:57:19 +0000 (+0000)
Subject: useful error info
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=84c597757c4f23ad1a26c6322d9fd2af479567c9;p=infobot.git

useful error info


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@564 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/modules.pl b/src/modules.pl
index a3e5408..36e3204 100644
--- a/src/modules.pl
+++ b/src/modules.pl
@@ -375,7 +375,8 @@ sub AUTOLOAD {
     return if ($AUTOLOAD =~ /__/);	# internal.
 
     my $str = join(', ', @_);
-    &ERROR("UNKNOWN FUNCTION CALLED: $AUTOLOAD ($str)");
+    my ($package, $filename, $line) = caller;
+    &ERROR("UNKNOWN FUNCTION CALLED: $AUTOLOAD ($str) $filename line $line");
 
     $AUTOLOAD =~ s/^(\S+):://g;