diff options
| -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); |