[Bast-commits] r9039 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-03-23 05:56:12 +0000 (Tue, 23 Mar 2010)
New Revision: 9039

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
Log:
fix sort

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2010-03-22 22:43:19 UTC (rev 9038)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Row.pm	2010-03-23 05:56:12 UTC (rev 9039)
@@ -364,7 +364,7 @@
     $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 ] }
       : ()
     ,
   );