Commit 0b097ec6 authored by Joachim Breitner's avatar Joachim Breitner

what-to-upgrade.pl: Cope with +dfsg in the version

parent 8f337316
......@@ -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!) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment