diff options
| author | Paul Buetow <paul@buetow.org> | 2011-02-06 09:55:57 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-02-06 09:55:57 +0000 |
| commit | ef8d41048c51078ad27ee2f29d0e667073aeee98 (patch) | |
| tree | 962def7d0bdf7aacb92423599270b1e3d31e2e62 /perldaemon.pl | |
| parent | e2f5ca5af526f787b07fd23d5acd9205976d9390 (diff) | |
removed version option
Diffstat (limited to 'perldaemon.pl')
| -rw-r--r-- | perldaemon.pl | 6 |
1 files changed, 4 insertions, 2 deletions
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; } } |
