diff options
| author | Paul Buetow <paul@buetow.org> | 2022-04-21 23:36:39 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2022-04-21 23:36:39 +0200 |
| commit | 48d7890b0112125b36132f477bd04e57623bb3a7 (patch) | |
| tree | 5d85f926df59f35ba9f693a25ca1850f1a8de49c | |
| parent | 70a177bfab34c1ea5146a33ec718e9db77fa20d6 (diff) | |
remove dependency to the Shell module - only use whats in the OpenBSD base install
| -rw-r--r-- | lib/PerlDaemon/Logger.pm | 3 | ||||
| -rw-r--r-- | lib/PerlDaemon/PerlDaemon.pl | 1 |
2 files changed, 1 insertions, 3 deletions
diff --git a/lib/PerlDaemon/Logger.pm b/lib/PerlDaemon/Logger.pm index 7285588..a5d632d 100644 --- a/lib/PerlDaemon/Logger.pm +++ b/lib/PerlDaemon/Logger.pm @@ -3,7 +3,6 @@ package PerlDaemon::Logger; use strict; use warnings; -use Shell qw(mv); use POSIX qw(strftime); $| = 1; @@ -79,7 +78,7 @@ sub rotatelog ($) { $self->logmsg('Rotating logfile'); my $timestr = strftime "%Y%m%d-%H%M%S", localtime(); - mv($logfile, "$logfile.$timestr"); + `mv $logfile $logfile.$timestr`; return undef; } diff --git a/lib/PerlDaemon/PerlDaemon.pl b/lib/PerlDaemon/PerlDaemon.pl index ac7e4d2..af848dc 100644 --- a/lib/PerlDaemon/PerlDaemon.pl +++ b/lib/PerlDaemon/PerlDaemon.pl @@ -5,7 +5,6 @@ use strict; use warnings; -use Shell qw(mv); use POSIX qw(setsid strftime); use Time::HiRes qw(gettimeofday tv_interval); |
