1 files changed, 0 insertions, 38 deletions
diff --git a/what-to-build.pl b/what-to-build.pl
deleted file mode 100755
index 147c493a1..000000000
--- a/what-to-build.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-my @dirs = @ARGV;
-
-unless (@dirs) {
-	@dirs = glob 'p/*/';
-}
-
-my @to_build;
-
-my %tags;
-open TAGS, '-|', 'git tag -l' or die @!;
-while (<TAGS>) { chomp; $tags{$_}++ };
-close TAGS or die @!;
-
-for my $dir (@dirs) {
-	my $changelog = "$dir/debian/changelog";
-	next unless -r $changelog;
-	open CHANGELOG, '<', $changelog or die @!;
-	my $firstline = <CHANGELOG>;
-	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;
-	} else {
-		printf STDERR "Cannot parse %s:\n%s", $changelog, $firstline;
-		next
-	}
-}
-
-
-