X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=DWeather%2Fdweather;fp=DWeather%2Fdweather;h=b51543b3727abcfd6079c20af8572d0afd0510e3;hb=86125caccc4bf630c8db18d9377c42b1ec5da428;hp=3844fcc7041933bd170854c19a7ce5de07f55ba1;hpb=b3376c44ca26ef6b330994bcbeea40d3ae9166de;p=dweather.git

diff --git a/DWeather/dweather b/DWeather/dweather
index 3844fcc..b51543b 100644
--- a/DWeather/dweather
+++ b/DWeather/dweather
@@ -2,12 +2,13 @@
 #
 # dweather - a distributed weather station
 #
-# copyright (c) 2012 Dirk Koopman G1TLH
+# Copyright (c) 2012-2014 Dirk Koopman G1TLH
 #
 #
 
 use strict;
 use warnings;
+use 5.01001;
 
 use lib qw(. ./blib ./lib ./DWeather/lib);
 
@@ -16,15 +17,9 @@ use DWeather::Logger;
 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");
 
-my $cv = AnyEvent->condvar;
-my @res = $cv->recv;
-
 exit 0;