betaverze klienta 2.0.0, u odesilajiciho pridan eval block

src/warden-client/lib/WardenClientSend.pm

@@ -79,6 +79,8 @@ sub c2s
 #-------------------------------------------------------------------------------
 sub saveNewEvent
 {
+  my $result;
+  eval {
     my $warden_path = shift;
     my $event_ref = shift;
 
@@ -121,8 +123,17 @@ sub saveNewEvent
       )
     );
 
-  my $result = c2s($uri, $ssl_key_file, $ssl_cert_file, $ssl_ca_file, "saveNewEvent", $event);
+    $result = c2s($uri, $ssl_key_file, $ssl_cert_file, $ssl_ca_file, "saveNewEvent", $event);
+    #$result ? return 1 : return 0;
+  }; #end of eval block
+  
+  if ($@) {
+    print STDERR "Warden-client unexpected end in eval block: " . $@ . "\n";
+    return 0;
+  }
+  else {
     $result ? return 1 : return 0;
+    }
   
 } # End of saveNewEvent