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 4a552c4c7f9b5b793fdd59ad37ee6f0a76d8c200..ebcf408a866db140b1db75540b1f36932d6cc7f5 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -319,17 +319,16 @@ sub check_access {
 
        my $auth = $r->headers_in->{'authorization'};
        if (!defined($auth)) {
-               output_401($r, 0);
+               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 =~ /^Digest (.*)$/) {
                return check_digest_auth($r, $1);
        }
-       output_401($r, 0);
+       output_401($r);
        return undef;
 }