[NeoStats-Devel] [Commits] r2782 - trunk/src
[email protected] Wed, 31 Aug 2005 01:17:13 +1000
| Newsgroups | gmane.comp.neostats.devel |
|---|---|
| Message-ID | <[email protected]> |
Author: Fish
Date: Tue Aug 30 23:17:06 2005
New Revision: 2782
Modified:
trunk/src/perl.c
Log:
woops
Modified: trunk/src/perl.c
==============================================================================
--- trunk/src/perl.c (original)
+++ trunk/src/perl.c Tue Aug 30 23:17:06 2005
@@ -291,7 +291,7 @@
int
perl_command_cb(CmdParams *cmdparams) {
- return execute_perl(cmdparams->bot->moduleptr, sv_2mortal (newSVpv (cmdparams->cmd_ptr->moddata, 0)), 3, cmdparams->cmd_ptr->cmd, cmdparams->source->name, cmdparams->param);
+ return execute_perl(GET_CUR_MODULE(), sv_2mortal (newSVpv (cmdparams->cmd_ptr->moddata, 0)), 3, cmdparams->cmd_ptr->cmd, cmdparams->source->name, cmdparams->param);
}
int