sort backup nums numerically to get correct order

diff --git a/lib/BackupPC/CGI/Archive.pm b/lib/BackupPC/CGI/Archive.pm
index 24ebaac..8259fe2 100644 (file)
--- a/lib/BackupPC/CGI/Archive.pm
+++ b/lib/BackupPC/CGI/Archive.pm
@@ -107,7 +107,7 @@ warn "# row ",dump $row;
 
 warn "# host $host all_backup_numbers = ",dump($all_backup_numbers);
                my @backup_nums = 
 
 warn "# host $host all_backup_numbers = ",dump($all_backup_numbers);
                my @backup_nums = 

-                       sort
+                       sort { $a <=> $b }

                        grep { $all_backup_numbers->{$_} }
                        keys %$all_backup_numbers;
 
                        grep { $all_backup_numbers->{$_} }
                        keys %$all_backup_numbers;