[leodict] change error handling and update s chec

diff --git a/scripts/leodict.pl b/scripts/leodict.pl
index f440cb38012f19400a3a0127ad4dc40b738c8ac7..8b1fd8a9541ca2cc33d06197a45a2381762a1684 100644 (file)
--- a/scripts/leodict.pl
+++ b/scripts/leodict.pl
@@ -117,7 +117,10 @@ sub parser {
     %fresult=();
 
     # tables
-    return unless (defined $ftext); 
+    unless (defined $ftext) {
+       %fresult=('Error'=>[['no data']]);
+       return;
+    }
     my $dom = Mojo::DOM->new($ftext);
     foreach my $tbl ( $dom->find('table')->each ) {
 
@@ -401,8 +404,8 @@ sub self_check {
        $s="Error: results ($count)";
     }
     Irssi::print("selfcheck: $s");
-    my $schs_version = $Irssi::Script::selfcheckhelperscript::VERSION;
-    Irssi::command("selfcheckhelperscript $s") if ( defined $schs_version );
+    my $schs =  exists $Irssi::Script::{'selfcheckhelperscript::'};
+    Irssi::command("selfcheckhelperscript $s") if ( $schs );
 }
 
 sub sig_setup_changed {