]> git.donarmstrong.com Git - debbugs.git/commitdiff
fix typos in versions_time_cleanup
authorDon Armstrong <don@donarmstrong.com>
Sun, 10 Jun 2007 01:26:55 +0000 (18:26 -0700)
committerDon Armstrong <don@donarmstrong.com>
Sun, 10 Jun 2007 01:26:55 +0000 (18:26 -0700)
examples/debian/versions/versions_time_cleanup

index 5bd4516dc80b6688fbde16e3b5368f0ce7dfd899..71b5cbac3029895ad733eb57607d98b76aba3e6d 100755 (executable)
@@ -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]};
               }
          }
      }