[DHG_packages] 01/02: Correct(er) tag mangling in tag.pl and what-to-build.pl
Joachim Breitner
nomeata at moszumanska.debian.org
Thu Jul 16 13:47:38 UTC 2015
This is an automated email from the git hooks/post-receive script.
nomeata pushed a commit to branch master
in repository DHG_packages.
commit add37b21a0cf41c2f62e0031329141c69c8d3313
Author: Joachim Breitner <mail at joachim-breitner.de>
Date: Thu Jul 16 15:45:21 2015 +0200
Correct(er) tag mangling in tag.pl and what-to-build.pl
---
tag.pl | 1 +
what-to-build.pl | 1 +
2 files changed, 2 insertions(+)
diff --git a/tag.pl b/tag.pl
index fadfa83..62e201c 100755
--- a/tag.pl
+++ b/tag.pl
@@ -22,6 +22,7 @@ for my $dir (@dirs) {
if ($firstline =~ m/([\w-]+) \(([\w:~.+-]+)\) (\w+);/) {
my ($source, $version, $suite) = ($1, $2, $3);
my $tag = sprintf "%s_v%s", $source, $version;
+ $tag =~ tr/:~/_/;
my $msg = sprintf "Tagging %s version %s, targetted for %s", $source, $version, $suite;
if ($suite eq "UNRELEASED") {
printf STDERR "Cannot tag UNRELEASED package %s-%s", $source, $version;
diff --git a/what-to-build.pl b/what-to-build.pl
index 4c63cba..147c493 100755
--- a/what-to-build.pl
+++ b/what-to-build.pl
@@ -24,6 +24,7 @@ for my $dir (@dirs) {
if ($firstline =~ m/([\w-]+) \(([\w:~.+-]+)\) (\w+);/) {
my ($source, $version, $suite) = ($1, $2, $3);
my $tag = sprintf "%s_v%s", $source, $version;
+ $tag =~ tr/:~/_/;
next if ($suite eq "UNRELEASED");
next if ($tags{$tag});
printf "%s\n", $dir;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/DHG_packages.git
More information about the Pkg-haskell-commits
mailing list