fix sort
Rafael Kitover [Tue, 23 Mar 2010 05:56:12 +0000 (05:56 +0000)]
lib/DBIx/Class/Row.pm

index 07cfe71..7716985 100644 (file)
@@ -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 ] }
       : ()
     ,
   );