From 26d85c3cd6c88daaf4675e8e412025613c74c836 Mon Sep 17 00:00:00 2001
From: Matthias Meusburger <matthias.meusburger@biblibre.com>
Date: Thu, 7 May 2009 15:11:44 +0200
Subject: [PATCH] Add missing return when CAS user is invalid

---
 C4/Auth.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C4/Auth.pm b/C4/Auth.pm
index c594cc9cb6..3769cde920 100755
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -1342,6 +1342,7 @@ sub checkpw {
         my ($retval,$retcard,$retuserid) = checkpw_cas($dbh, $ticket, $query);    # EXTERNAL AUTH
 	warn "retval : $retval $retcard";
         ($retval) and return ($retval,$retcard,$retuserid);
+	return 0;
     }
 
     # INTERNAL AUTH
-- 
2.20.1