Remove some unneeded parameters from check_401.

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

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 4a552c4c7f9b5b793fdd59ad37ee6f0a76d8c200..60e9469d57e7ece412f228cd49f7fc61b6df3f0b 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -319,7 +319,7 @@ 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");
@@ -329,7 +329,7 @@ sub check_access {
        if ($auth =~ /^Digest (.*)$/) {
                return check_digest_auth($r, $1);
        }
-       output_401($r, 0);
+       output_401($r);
        return undef;
 }