Make log_info etc. work with a fake $r.

[pr0n] / perl / Sesse / pr0n / Common.pm

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index f071afcf838bf8a4425a5b46632bb8c1ac00cc06..04954424d41c41a0f143898431e042584204db76 100644 (file)
--- 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";