diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-11-25 16:17:44 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-11-25 16:17:44 +0000 |
| commit | ba445fe37eba5fe0138904b41987d45ab0ae41a2 (patch) | |
| tree | 9a182b2d9fa28af3baa30d0563d97fec50add8bd /src/perl/perl-fe.c | |
| parent | ed4d24b2824d64ad1b28d30180fa3d6bde2ed8f3 (diff) | |
| download | irssi-ba445fe37eba5fe0138904b41987d45ab0ae41a2.zip | |
/SCRIPT LOAD modifies the script name so that all non-alphanumeric
characters are translated to '_' char .. now this behaviour is done also
when /SCRIPT UNLOAD is done, so people don't get confused why their "test-1"
script can't be unloaded.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2145 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-fe.c')
| -rw-r--r-- | src/perl/perl-fe.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c index 17b57ee1..19889adf 100644 --- a/src/perl/perl-fe.c +++ b/src/perl/perl-fe.c @@ -104,10 +104,11 @@ static void cmd_script_unload(const char *data) if (*name == '\0') cmd_param_error(CMDERR_NOT_ENOUGH_PARAMS); + script_fix_name(name); script = perl_script_find(name); if (script == NULL) { printformat(NULL, NULL, MSGLEVEL_CLIENTERROR, - TXT_SCRIPT_NOT_LOADED, data); + TXT_SCRIPT_NOT_LOADED, name); } else { printformat(NULL, NULL, MSGLEVEL_CLIENTERROR, TXT_SCRIPT_UNLOADED, script->name); |