From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 28 Aug 2006 20:41:50 +0000 (+0000)
Subject: fixup for hashref in action attrs from config
X-Git-Tag: 5.7099_04~357
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=6d316c39ef09b94d094a157c501df80e3199ceae

fixup for hashref in action attrs from config
---

diff --git a/Changes b/Changes
index c0683c1..ab05edf 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@ This file documents the revision history for Perl extension Catalyst.
 5.7002
         - unescape captures to match args
         - fix for relative Chained under namespace '' (root)
+        - fix for hashrefs in action attributes from config
 
 5.7001   2006-07-19 23:46:54
         - fix for component loading
diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm
index 863e688..561fe97 100644
--- a/lib/Catalyst/Base.pm
+++ b/lib/Catalyst/Base.pm
@@ -251,7 +251,7 @@ sub _parse_attrs {
 
         my $raw = $raw_attributes{$key};
 
-        foreach my $value (ref($raw) ? @$raw : $raw) {
+        foreach my $value (ref($raw) eq 'ARRAY' ? @$raw : $raw) {
 
             my $meth = "_parse_${key}_attr";
             if ( $self->can($meth) ) {