From: Arthur Axel 'fREW' Schmidt Date: Sat, 28 Jul 2012 17:37:25 +0000 (-0500) Subject: Fix eq_bind checker X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FSQL-Abstract.git;a=commitdiff_plain;h=5fe06f15388d1da6efd42155d3aeb19d92139b7f Fix eq_bind checker We have to Deepcopy because otherwise we get $VAR->... incorrect failures --- diff --git a/lib/SQL/Abstract/Test.pm b/lib/SQL/Abstract/Test.pm index 2bc681e..119edd4 100644 --- a/lib/SQL/Abstract/Test.pm +++ b/lib/SQL/Abstract/Test.pm @@ -107,6 +107,7 @@ sub eq_bind { local $Data::Dumper::Useqq = 1; local $Data::Dumper::Sortkeys = 1; + local $Data::Dumper::Deepcopy = 1; return Dumper($bind_ref1) eq Dumper($bind_ref2); }