X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FActionRole%2FQueryMatching.pm;h=83b83411cb07029689db7b464197ac22f741bbf3;hp=955258b1b3aae1a63d38af006ba030a6c86f9c9e;hb=dd4530ecdc4684838d9c0e9dc00adebb6100b022;hpb=e58865461d2d7c80b8136a4b853082cb8031975e

diff --git a/lib/Catalyst/ActionRole/QueryMatching.pm b/lib/Catalyst/ActionRole/QueryMatching.pm
index 955258b..83b8341 100644
--- a/lib/Catalyst/ActionRole/QueryMatching.pm
+++ b/lib/Catalyst/ActionRole/QueryMatching.pm
@@ -2,6 +2,7 @@ package Catalyst::ActionRole::QueryMatching;
 
 use Moose::Role;
 use Moose::Util::TypeConstraints ();
+use Ref::Util ();
 
 requires 'match', 'match_captures', 'list_extra_info';
 
@@ -65,7 +66,7 @@ has query_constraints => (
 around ['match','match_captures'] => sub {
     my ($orig, $self, $c, @args) = @_;
     my $tc = $self->query_constraints;
-    if(ref $tc eq 'HASH') {
+    if(Ref::Util::is_plain_hashref($tc)) {
       # Do the key names match, unless slurpy?
       unless($self->is_slurpy) {
         return 0 unless $self->_compare_arrays([sort keys %$tc],[sort keys %{$c->req->query_parameters}]);