From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 16 Dec 2009 10:29:20 +0000 (+0000)
Subject: Clearer debug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8c333730df3277fee493df7ba6601ce1bb5f6ec;p=dbsrgits%2FDBIx-Class-Historic.git

Clearer debug
---

diff --git a/t/746mssql.t b/t/746mssql.t
index 6d2e2b0..f9142f7 100644
--- a/t/746mssql.t
+++ b/t/746mssql.t
@@ -272,12 +272,12 @@ lives_ok ( sub {
 
   $schema->storage->debug (1);
   diag "\n";
-  my @subq_names = [ map { $_->name } ($sealed_owners->all) ];
-  my @names = [ map { $_->name } ($owners->all) ];
+  my @names = map { $_->name } ($owners->all);
+  my @subq_names = map { $_->name } ($sealed_owners->all);
 
   is_deeply (
-    \@subq_names,
     \@names,
+    \@subq_names,
     'Sort preserved from within a subquery'
   ) || diag do { require Data::Dumper::Concise; Data::Dumper::Concise::Dumper (\@names, \@subq_names) };
   $schema->storage->debug (0);