Remove stray debugging code.

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

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 60e9469d57e7ece412f228cd49f7fc61b6df3f0b..ebcf408a866db140b1db75540b1f36932d6cc7f5 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -322,7 +322,6 @@ sub check_access {
                output_401($r);
                return undef;
        } 
                output_401($r);
                return undef;
        } 

-       $r->log->warn("Auth: $auth");

        if ($auth =~ /^Basic ([a-zA-Z0-9+\/]+=*)$/) {
                return check_basic_auth($r, $1);
        }       
        if ($auth =~ /^Basic ([a-zA-Z0-9+\/]+=*)$/) {
                return check_basic_auth($r, $1);
        }