From a87e90cdd5ed56bc6bfa460a9b56f587a65bebd3 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Tue, 30 Jun 2009 13:38:58 +0200
Subject: [PATCH 1/1] Remove some unneeded parameters from check_401.

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

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 4a552c4..60e9469 100644
--- 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;
 }
 
-- 
2.39.2