useful error info

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

diff --git a/blootbot/src/modules.pl b/blootbot/src/modules.pl
index a3e5408089295e7e14e9841460fa6d4bf7f7ce1e..36e3204529c8cd8d14ce3116e52ff6acbd518b06 100644 (file)
--- a/blootbot/src/modules.pl
+++ b/blootbot/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;