diff options
author | Timo Sirainen <cras@irssi.org> | 2002-08-25 16:04:11 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-08-25 16:04:11 +0000 |
commit | 4bb26bb9518a0166e2102eef139b518fae8d20b6 (patch) | |
tree | c26de519d3f44117277b9d00bf20aba0ea2cb5cd /src/perl/irssi-core.pl | |
parent | c7cfe9f3cb21e1dd19f6cbbf3230eab6090d496b (diff) | |
download | irssi-4bb26bb9518a0166e2102eef139b518fae8d20b6.zip |
If script returns 0 while it's being loaded, it's terminated without any
error message.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2885 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/irssi-core.pl')
-rw-r--r-- | src/perl/irssi-core.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/perl/irssi-core.pl b/src/perl/irssi-core.pl index 9ab5953b..11aa0f6f 100644 --- a/src/perl/irssi-core.pl +++ b/src/perl/irssi-core.pl @@ -30,8 +30,10 @@ sub eval_data { } die $@ if $@; - eval {$package->handler;}; + my $ret; + eval { $ret = $package->handler; }; die $@ if $@; + return $ret; } sub eval_file { |