[DHG_packages] 15/21: what-to-upgrade.pl: Cope with +dfsg in the version

[Joachim Breitner]

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

nomeata pushed a commit to branch master
in repository DHG_packages.

commit 0b097ec624cdfa8874491177fcbce74991db8f37
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Aug 12 14:02:19 2015 +0200

    what-to-upgrade.pl: Cope with +dfsg in the version
---
 what-to-upgrade.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/what-to-upgrade.pl b/what-to-upgrade.pl
index 5bff304..f4a74b6 100755
--- a/what-to-upgrade.pl
+++ b/what-to-upgrade.pl
@@ -35,7 +35,7 @@ for my $dir (@dirs) {
 	my $firstline = <CHANGELOG>;
 	if ($firstline =~ m/([\w-]+) \(([\w:~.+-]+)\) (\w+);/) {
 		my ($source, $version, $suite) = ($1, $2, $3);
-		my ($cabal_version) = ($version =~ m/(?:.*:)?(.*)-.*?/);
+		my ($cabal_version) = ($version =~ m/^(?:.*:)?(.*?)(?:\+dfsg\d*)?-.*?$/);
 
 		my $watch = read_file($watchfile) or die @!;
 		unless ($watch =~ m!http://hackage.haskell.org/package/(.*)/distro-monitor!) {

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