fixup for hashref in action attrs from config

diff --git a/Changes b/Changes
index c0683c1..ab05edf 100644 (file)
--- 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 (file)
--- 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) ) {