diff options
Diffstat (limited to 'src/perl/perl-core.c')
| -rw-r--r-- | src/perl/perl-core.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index b6fce2c1..0807fc72 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -230,10 +230,8 @@ static PERL_SCRIPT_REC *script_load(char *name, const char *path, perl_scripts = g_slist_append(perl_scripts, script); signal_emit("script created", 1, script); - if (!perl_script_eval(script)) { - perl_script_unload(script); - script = NULL; - } + if (!perl_script_eval(script)) + script = NULL; /* the script is destroyed in "script error" signal */ return script; } |