diff options
| author | Emanuele Giaquinta <exg@irssi.org> | 2009-01-16 22:02:02 +0000 |
|---|---|---|
| committer | exg <exg@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2009-01-16 22:02:02 +0000 |
| commit | 2129c4b2295ac89f0c4d25a9fab8251b353b85cd (patch) | |
| tree | e2c18007cb741525fd6be6800a5b85d57e3fc953 /src/perl/perl-core.c | |
| parent | 4534ef242d82173755fedda1d8b233e89ed05d3f (diff) | |
| download | irssi-2129c4b2295ac89f0c4d25a9fab8251b353b85cd.zip | |
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
Diffstat (limited to 'src/perl/perl-core.c')
| -rw-r--r-- | src/perl/perl-core.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |