Fudge supported_features in Htpasswd::User, and fix handling in the base class
Yuval Kogman [Wed, 18 Jan 2006 11:39:27 +0000 (11:39 +0000)]
lib/Catalyst/Plugin/Authentication/User.pm

index a008c2f..9fb90eb 100644 (file)
@@ -16,7 +16,8 @@ sub supports {
 
     # traverse the feature list,
     for (@spec) {
-        die "bad feature spec: @spec" if ref($cursor) ne "HASH";
+        #die "bad feature spec: @spec" if ref($cursor) ne "HASH";
+        return if ref($cursor) ne "HASH";
 
         $cursor = $cursor->{$_};
     }