From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 10 Jun 2007 01:26:55 +0000 (-0700)
Subject: fix typos in versions_time_cleanup
X-Git-Tag: release/2.6.0~558^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c52209e76ccaefb1e320dafe0c5abf4218cd5a3c;p=debbugs.git

fix typos in versions_time_cleanup
---

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]};
 	       }
 	  }
      }