fix sorting of edits
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 3 Jun 2010 10:13:38 +0000 (12:13 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 3 Jun 2010 10:13:53 +0000 (12:13 +0200)
lib/MojoFacets/Changes.pm

index 3d0392e..e9c2fdf 100644 (file)
@@ -45,7 +45,7 @@ sub edits {
        my $path = $self->param('path') || $self->session('path');
        my $edit_path = $self->app->home->rel_dir('data') . '/' . $path . '.edits';
        my $edits;
-       foreach my $t ( sort { $b <=> $a } glob $edit_path . '/*' ) {
+       foreach my $t ( sort { $b cmp $a } glob $edit_path . '/*' ) {
                push @$edits, retrieve("$t");
        }
        $self->render( edits => $edits );