Skip to content
Snippets Groups Projects
Commit 820b4970 authored by Pavel Kácha's avatar Pavel Kácha
Browse files

Suppress undef warnings in example receiver (thanks to DanS)

parent 38ecb30c
No related branches found
No related tags found
No related merge requests found
...@@ -38,7 +38,7 @@ print "+------------------------------------------------------------------------ ...@@ -38,7 +38,7 @@ print "+------------------------------------------------------------------------
while (my @new_events = WardenClientReceive::getNewEvents($warden_path, $requested_type)) { while (my @new_events = WardenClientReceive::getNewEvents($warden_path, $requested_type)) {
foreach my $event_ref (@new_events) { foreach my $event_ref (@new_events) {
my @event = @$event_ref; my @event = @$event_ref;
print "| " . join(' | ', @event) . " |" . "\n"; print "| " . join(' | ', map { $_ || '' } @event) . " |" . "\n";
} }
print "+------------------------------------------------------------------------------------------------------------------------------------------+\n"; print "+------------------------------------------------------------------------------------------------------------------------------------------+\n";
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment