From 2129c4b2295ac89f0c4d25a9fab8251b353b85cd Mon Sep 17 00:00:00 2001 From: Emanuele Giaquinta Date: Fri, 16 Jan 2009 22:02:02 +0000 Subject: [PATCH] Properly unload the original script when using /script load to reload it. bug #525, patch by Lukas Mai. git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4991 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/perl-core.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 836d52e6..33d8a2bf 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -266,7 +266,7 @@ static PERL_SCRIPT_REC *script_load(char *name, const char *path, /* if there's a script with a same name, destroy it */ script = perl_script_find(name); if (script != NULL) - perl_script_destroy(script); + perl_script_unload(script); script = g_new0(PERL_SCRIPT_REC, 1); script->name = name;