X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;fp=perl%2FSesse%2Fpr0n%2FCommon.pm;h=04954424d41c41a0f143898431e042584204db76;hp=f071afcf838bf8a4425a5b46632bb8c1ac00cc06;hb=98da70a27673e32530c404401d3e2c6dff3fcde4;hpb=c305a42e2491a0f998938e02f61c4456b8cb5d5d

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index f071afc..0495442 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -1035,7 +1035,7 @@ sub get_server_name {
 
 sub log_info {
 	my ($r, $msg) = @_;
-	if (defined($r->logger)) {
+	if (defined($r->{'logger'})) {
 		$r->logger->({ level => 'info', message => $msg });
 	} else {
 		print STDERR "[INFO] $msg\n";
@@ -1044,7 +1044,7 @@ sub log_info {
 
 sub log_warn {
 	my ($r, $msg) = @_;
-	if (defined($r->logger)) {
+	if (defined($r->{'logger'})) {
 		$r->logger->({ level => 'warn', message => $msg });
 	} else {
 		print STDERR "[WARN] $msg\n";
@@ -1053,7 +1053,7 @@ sub log_warn {
 
 sub log_error {
 	my ($r, $msg) = @_;
-	if (defined($r->logger)) {
+	if (defined($r->{'logger'})) {
 		$r->logger->({ level => 'error', message => $msg });
 	} else {
 		print STDERR "[ERROR] $msg\n";