===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2010/01/08 17:18:35	1.29
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2010/02/25 18:03:01	1.30
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$RedRiver: CurrentTorrents.pl,v 1.28 2010/01/05 19:55:22 andrew Exp $
+#$RedRiver: CurrentTorrents.pl,v 1.29 2010/01/08 17:18:35 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -97,7 +97,7 @@
 
     my $cn = $files{torrent}{$name};
 
-EPOCH: foreach my $epoch ( sort { $b <=> $a } keys %{$cn} ) {
+EPOCH: foreach my $epoch ( sort { $a <=> $b } keys %{$cn} ) {
         my $ct = $cn->{$epoch};
         my $cf = $ct->{path};