diff options
| -rw-r--r-- | perldaemon.conf | 1 | ||||
| -rw-r--r-- | perldaemon.pl | 6 |
2 files changed, 4 insertions, 3 deletions
diff --git a/perldaemon.conf b/perldaemon.conf index 40be314..f54f546 100644 --- a/perldaemon.conf +++ b/perldaemon.conf @@ -3,4 +3,3 @@ daemon.wd = ./ daemon.pidfile = ./perldaemon.pid daemon.logfile = ./perldaemon.log daemon.truncatelog = yes -daemon.version = v1 diff --git a/perldaemon.pl b/perldaemon.pl index 2873c85..c5580da 100644 --- a/perldaemon.pl +++ b/perldaemon.pl @@ -6,6 +6,8 @@ use strict; use warnings; use POSIX qw(setsid); +use constant VERSION => 1; + $| = 1; sub trimstr (@) { @@ -91,7 +93,7 @@ sub readconfig ($) { # Check my $msg = 'Missing property:'; - foreach (qw(wd pidfile logfile truncatelog version)) { + foreach (qw(wd pidfile logfile truncatelog)) { my $key = "daemon.$_"; die "$msg $key\n" unless exists $config{$key}; } @@ -134,7 +136,7 @@ sub daemonloop ($) { my $loop = shift; for (my $i = 1;;++$i) { - logmsg $config => $config->{'daemon.version'} . ": Hello $i"; + logmsg $config => VERSION . ": Hello $i"; sleep 3; } } |