From 6acc71e9a2766a7186b84b57e3fde197667edfa2 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Mon, 30 Jul 2001 13:07:26 +0000 Subject: [PATCH] bugfix for parameter handling... git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1690 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/perl-fe.c | 4 ++-- 1 file 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);