projects
/
dweather.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update DWeather::Debug, Logger, Serial
[dweather.git]
/
DWeather
/
dweather
diff --git
a/DWeather/dweather
b/DWeather/dweather
index 3844fcc7041933bd170854c19a7ce5de07f55ba1..b51543b3727abcfd6079c20af8572d0afd0510e3 100644
(file)
--- a/
DWeather/dweather
+++ b/
DWeather/dweather
@@
-2,12
+2,13
@@
#
# dweather - a distributed weather station
#
#
# dweather - a distributed weather station
#
-#
copyright (c) 2012
Dirk Koopman G1TLH
+#
Copyright (c) 2012-2014
Dirk Koopman G1TLH
#
#
use strict;
use warnings;
#
#
use strict;
use warnings;
+use 5.01001;
use lib qw(. ./blib ./lib ./DWeather/lib);
use lib qw(. ./blib ./lib ./DWeather/lib);
@@
-16,15
+17,9
@@
use DWeather::Logger;
use DWeather::Debug;
use AnyEvent;
use DWeather::Debug;
use AnyEvent;
-my $sigint = AnyEvent->signal (signal => "INT", cb => sub { my $sig = shift; terminate("on signal $sig")});
-my $sigterm = AnyEvent->signal (signal => "TERM", cb => sub { my $sig = shift; terminate("on signal $sig")});
-
dbginit();
dbg("*** dweather started");
dbginit();
dbg("*** dweather started");
-my $cv = AnyEvent->condvar;
-my @res = $cv->recv;
-
exit 0;
exit 0;