From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Sat, 5 Jun 2021 22:28:18 +0000 (+0200)
Subject: Make log_info etc. work with a fake $r.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=98da70a27673e32530c404401d3e2c6dff3fcde4

Make log_info etc. work with a fake $r.
---

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";