added Logger::warn

1 files changed, 11 insertions, 0 deletions

diff --git a/lib/PerlDaemon/Logger.pm b/lib/PerlDaemon/Logger.pm
index fccc274..2fecd60 100644
--- a/lib/PerlDaemon/Logger.pm
+++ b/lib/PerlDaemon/Logger.pm
@@ -18,6 +18,8 @@ sub logmsg ($$) {
 	open my $fh, ">>$logfile" or die "Can't write logfile $logfile: $!\n";
 	print $fh localtime()." (PID $$): $msg\n";
 	close $fh;
+
+        return undef;
 }
 
 sub err ($$) {
@@ -26,6 +28,13 @@ sub err ($$) {
 	die "$msg\n";
 }
 
+sub warn ($$) {
+	my ($self, $msg) = @_;
+	$self->logmsg("WARNING: $msg");
+
+        return undef;
+}
+
 sub rotatelog ($) {
 	my $self = shift;
 	my $conf = $self->{conf};
@@ -35,6 +44,8 @@ sub rotatelog ($) {
 
 	my $timestr = strftime "%Y%m%d-%H%M%S", localtime();
 	mv($logfile, "$logfile.$timestr");	
+
+        return undef;
 }
 
 1;