From: Rafael Kitover <rkitover@cpan.org>
Date: Tue, 23 Mar 2010 05:56:12 +0000 (+0000)
Subject: fix sort
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47c397cda78c09d32350a63095e877e9680fb4cf;p=dbsrgits%2FDBIx-Class-Historic.git

fix sort
---

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index 07cfe71..7716985 100644
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -364,7 +364,7 @@ sub insert {
     $source,
     { $self->get_columns },
     keys %auto_pri
-      ? { returning => [ sort { $auto_pri{$a} <=> $auto_pri{$b} } keys %auto_pri ] }
+      ? { returning => [ sort { $auto_pri{$a} cmp $auto_pri{$b} } keys %auto_pri ] }
       : ()
     ,
   );