[package-plan] 01/01: upgrade-to-lts.pl: Do not downgrade packages, clear ahead

[Daniel Silverstone]

This is an automated email from the git hooks/post-receive script.

dsilvers pushed a commit to branch master
in repository package-plan.

commit a96508af9dcd2460cbd1b98b34a4105188ddfd24
Author: Daniel Silverstone <dsilvers at digital-scurf.org>
Date:   Mon Aug 10 16:59:28 2015 +0200

    upgrade-to-lts.pl: Do not downgrade packages, clear ahead
---
 upgrade-to-lts.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/upgrade-to-lts.pl b/upgrade-to-lts.pl
index a9df954..99f38b4 100755
--- a/upgrade-to-lts.pl
+++ b/upgrade-to-lts.pl
@@ -3,6 +3,7 @@
 use strict;
 use warnings;
 
+use Dpkg::Version;
 use File::Slurp;
 
 my $packages = read_file('packages.txt');
@@ -23,8 +24,9 @@ while (<LTS>) {
 
      if ($packages =~ /^$pkg\s+([^\s]+)/m) {
 	my $before = $1;
-	if ($before ne $version)  {
+	if (version_compare($before, $version) == -1)  {
 		$packages =~ s/^$pkg\s+[^\s]+/$pkg $version/m;
+		$packages =~ s/\s*ahead//;
 		printf "Bumped %s to %s\n", $pkg, $version;
 	}
      }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/package-plan.git