From 57f4784158d2196ff8cf86be0ed7ae4bcb52bb9a Mon Sep 17 00:00:00 2001
From: Adirelle <adirelle@tagada-team.net>
Date: Sun, 13 Nov 2011 10:38:18 +0100
Subject: [PATCH] Fixed some comparisons.

---
 Redmine.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Redmine.pm b/Redmine.pm
index 5f8178b..9fc2ce4 100644
--- a/Redmine.pm
+++ b/Redmine.pm
@@ -310,7 +310,7 @@ sub check_login {
 	}
 	
 	# Password is ok, check if account if locked	
-	return (FORBIDDEN, "inactive account: '$user'") unless $status eq 1;
+	return (FORBIDDEN, "inactive account: '$user'") unless $status == 1;
 
 	$r->log->debug("successfully authenticated as active redmine user '$user'");
 
@@ -458,7 +458,7 @@ sub query_fetch_first {
 # tell if a value returned from SQL is "true"
 sub is_true {
 	my $value = shift;
-  return defined($value) && ($value eq "1" || $value eq 1 || $value eq "t");
+  return defined($value) && ($value == 1 || $value eq "t");
 }
 
 # build credential cache key