From 98da70a27673e32530c404401d3e2c6dff3fcde4 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sun, 6 Jun 2021 00:28:18 +0200
Subject: [PATCH] Make log_info etc. work with a fake $r.

---
 perl/Sesse/pr0n/Common.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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