Skip to content
Snippets Groups Projects
Commit e2a88327 authored by Jan Soukal's avatar Jan Soukal
Browse files

betaverze klienta 2.0.0, u odesilajiciho pridan eval block

parent 9e40f828
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment