From c52209e76ccaefb1e320dafe0c5abf4218cd5a3c Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 9 Jun 2007 18:26:55 -0700
Subject: [PATCH] fix typos in versions_time_cleanup

---
 examples/debian/versions/versions_time_cleanup | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/examples/debian/versions/versions_time_cleanup b/examples/debian/versions/versions_time_cleanup
index 5bd4516d..71b5cbac 100755
--- a/examples/debian/versions/versions_time_cleanup
+++ b/examples/debian/versions/versions_time_cleanup
@@ -23,14 +23,14 @@ for my $package (keys %db) {
      for my $dist (keys %{$temp}) {
 	  for my $arch (keys %{$temp->{$dist}}) {
 	       my @versions =  (sort {$temp->{$dist}{$arch}{$a} <=>
-					   $temp->{$dist}{$arch}{$a}
+					   $temp->{$dist}{$arch}{$b}
 				      }
 				keys %{$temp->{$dist}{$arch}});
 	       next unless @versions > 1;
 	       for my $i (0 .. ($#versions-1)) {
 		    last if $temp->{$dist}{$arch}{$versions[$i+1]} > ($time - $config{remove_age}*60*60*24);
 		    last if keys %{$temp->{$dist}{$arch}} <= 1;
-		    delete $temp->{$dist}{$arch}{$versions[$i+1]};
+		    delete $temp->{$dist}{$arch}{$versions[$i]};
 	       }
 	  }
      }
-- 
2.39.5