From 743d8a68470f1fb4b077c8b0f0d23fef890bd485 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Sun, 17 Feb 2013 13:44:48 +0000
Subject: [PATCH] Ugh, copypasta.

---
 Webperl/AuthMethod.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Webperl/AuthMethod.pm b/Webperl/AuthMethod.pm
index c427867..8dc328b 100644
--- a/Webperl/AuthMethod.pm
+++ b/Webperl/AuthMethod.pm
@@ -402,9 +402,9 @@ sub apply_policy {
         }
     }
 
-    if(scalar(%policy)) {
-        $policy{"policy_order"} = $self -> {"set_policy_order"};
-        return \%policy;
+    if(scalar(%{$failures})) {
+        $failures -> {"policy_order"} = $self -> {"set_policy_order"};
+        return $failures;
     }
     return undef;
 }