From: Jesse Luehrs Date: Mon, 9 May 2011 14:52:19 +0000 (-0500) Subject: whoops again X-Git-Tag: 2.0100~111 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b8422d6b0257c22a542d82a7d62a0f61375d678;p=gitmo%2FMoose.git whoops again --- diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm index 1d7cfc6..a0e242a 100644 --- a/lib/Moose/Meta/Class.pm +++ b/lib/Moose/Meta/Class.pm @@ -136,8 +136,13 @@ sub _anon_cache_key { return; } - $key .= '<' . join('+', 'a', join('%', sort %$alias), - 'e', join('%', sort @$excludes)) . '>'; + my $alias_key = join('%', + map { $_ => $alias->{$_} } sort keys %$alias + ); + my $excludes_key = join('%', + sort @$excludes + ); + $key .= '<' . join('+', 'a', $alias_key, 'e', $excludes_key) . '>'; } push @role_keys, $key; diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm index 0382afe..fe2e2a0 100644 --- a/lib/Moose/Meta/Role.pm +++ b/lib/Moose/Meta/Role.pm @@ -612,8 +612,13 @@ sub _anon_cache_key { return; } - $key .= '<' . join('+', 'a', join('%', sort %$alias), - 'e', join('%', sort @$excludes)) . '>'; + my $alias_key = join('%', + map { $_ => $alias->{$_} } sort keys %$alias + ); + my $excludes_key = join('%', + sort @$excludes + ); + $key .= '<' . join('+', 'a', $alias_key, 'e', $excludes_key) . '>'; } push @role_keys, $key;