deleted file mode 100755
@@ -1,32 +0,0 @@
-#!/usr/bin/perl -w
-# Modified from the original script to only list commit we care about..
-
-open(TAGS, "git tag -l |") or die "Could not get list of tags";
-@tags = <TAGS>;
-close(TAGS);
-
-open(LOGS, "git log --pretty=short |") or die "ERROR: Calling git-log";
-my $commit = "";
-
-while (<LOGS>) {
- if (m|^commit (.*)$|) {
- $commit = $1;
- next;
- }
-
- m|^\s*UBUNTU: (NBK-Ubuntu-2\.6\.\S*)| or next;
- $tag = $1;
-
- ($origtag) = grep(/^$tag.orig$/, @tags);
-
- if (!defined($origtag)) {
- print "I: Adding original tag for $tag\n";
- system("git tag -m $tag $tag.orig $tag");
- }
-
- print "I: Tagging $tag => $commit\n";
-
- system("git tag -f -m $tag $tag $commit");
-}
-
-close(LOGS);
This is no longer needed and in fact can do more harm than use. Drop it. Signed-off-by: Stefan Bader <stefan.bader@canonical.com> --- debian/scripts/misc/retag-branch | 32 -------------------------------- 1 files changed, 0 insertions(+), 32 deletions(-) delete mode 100755 debian/scripts/misc/retag-branch