From 0f9ddffb7bf2f8c1160d953a59eef923ff412efe Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Thu, 26 Mar 2015 11:14:46 +0000
Subject: [PATCH] 'Possible precedence issue with control flow operator' fixes.

---
 Webperl/Auth.pm | 24 ++++++++----------------
 1 file changed, 8 insertions(+), 16 deletions(-)

diff --git a/Webperl/Auth.pm b/Webperl/Auth.pm
index 5ddc451..8516daf 100644
--- a/Webperl/Auth.pm
+++ b/Webperl/Auth.pm
@@ -370,8 +370,7 @@ sub activated {
     my $user = $self -> get_user($username)
         or return undef;
 
-    return $methodimpl -> activated($user -> {"user_id"})
-        or return $self -> self_error($methodimpl -> errstr());
+    return ($methodimpl -> activated($user -> {"user_id"}) || $self -> self_error($methodimpl -> errstr()));
 }
 
 
@@ -418,8 +417,7 @@ sub reset_password_actcode {
     my $user = $self -> get_user($username)
         or return undef;
 
-    return $methodimpl -> reset_password_actcode($user -> {"user_id"})
-        or return $self -> self_error($methodimpl -> errstr());
+    return ($methodimpl -> reset_password_actcode($user -> {"user_id"}) || $self -> self_error($methodimpl -> errstr()));
 }
 
 
@@ -440,8 +438,7 @@ sub reset_password {
     my $user = $self -> get_user($username)
         or return undef;
 
-    return $methodimpl -> reset_password($user -> {"user_id"})
-        or return $self -> self_error($methodimpl -> errstr());
+    return ($methodimpl -> reset_password($user -> {"user_id"}) || $self -> self_error($methodimpl -> errstr()));
 }
 
 
@@ -464,8 +461,7 @@ sub set_password {
     my $user = $self -> get_user($username)
         or return undef;
 
-    return $methodimpl -> set_password($user -> {"user_id"}, $password)
-        or return $self -> self_error($methodimpl -> errstr());
+    return ($methodimpl -> set_password($user -> {"user_id"}, $password) || $self -> self_error($methodimpl -> errstr()));
 }
 
 
@@ -486,8 +482,7 @@ sub generate_actcode {
     my $user = $self -> get_user($username)
         or return undef;
 
-    return $methodimpl -> generate_actcode($user -> {"user_id"})
-        or return $self -> self_error($methodimpl -> errstr());
+    return ($methodimpl -> generate_actcode($user -> {"user_id"}) || $self -> self_error($methodimpl -> errstr()));
 }
 
 
@@ -511,8 +506,7 @@ sub force_passchange {
     my $user = $self -> get_user($username)
         or return undef;
 
-    return $methodimpl -> force_passchange($user -> {"user_id"})
-        or return $self -> self_error($methodimpl -> errstr());
+    return ($methodimpl -> force_passchange($user -> {"user_id"}) || $self -> self_error($methodimpl -> errstr()));
 }
 
 
@@ -581,8 +575,7 @@ sub apply_policy {
     my $methodimpl = $self -> get_user_authmethod_module($username)
         or return undef;
 
-    return $methodimpl -> apply_policy($password)
-        or return $self -> self_error($methodimpl -> errstr());
+    return ($methodimpl -> apply_policy($password) || $self -> self_error($methodimpl -> errstr()));
 }
 
 
@@ -603,8 +596,7 @@ sub get_policy {
     my $methodimpl = $self -> get_user_authmethod_module($username)
         or return undef;
 
-    return $methodimpl -> get_policy()
-        or return $self -> self_error($methodimpl -> errstr());
+    return ($methodimpl -> get_policy() || $self -> self_error($methodimpl -> errstr()));
 }