[DHG_packages] 01/02: Correct(er) tag mangling in tag.pl and what-to-build.pl

[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 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