summaryrefslogtreecommitdiff
path: root/src/perl/perl-fe.c
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2001-07-30 13:07:26 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2001-07-30 13:07:26 +0000
commit6acc71e9a2766a7186b84b57e3fde197667edfa2 (patch)
treecfbdcebe1f48230817b8e79a3b44eda8bf7f0a08 /src/perl/perl-fe.c
parentfedc4dac4f957f1fd6597c1de73ae38bda431bd3 (diff)
downloadirssi-6acc71e9a2766a7186b84b57e3fde197667edfa2.zip
bugfix for parameter handling...
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1690 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-fe.c')
-rw-r--r--src/perl/perl-fe.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c
index 2b788d0a..cbdad663 100644
--- a/src/perl/perl-fe.c
+++ b/src/perl/perl-fe.c
@@ -72,7 +72,7 @@ static void cmd_script_load(const char *data)
if (*path == '\0')
cmd_param_error(CMDERR_NOT_ENOUGH_PARAMS);
- fname = perl_script_get_path(data);
+ fname = perl_script_get_path(path);
if (fname == NULL) {
printformat(NULL, NULL, MSGLEVEL_CLIENTERROR,
TXT_SCRIPT_NOT_FOUND, data);
@@ -100,7 +100,7 @@ static void cmd_script_unload(const char *data)
if (*name == '\0')
cmd_param_error(CMDERR_NOT_ENOUGH_PARAMS);
- script = perl_script_find(data);
+ script = perl_script_find(name);
if (script == NULL) {
printformat(NULL, NULL, MSGLEVEL_CLIENTERROR,
TXT_SCRIPT_NOT_LOADED, data);