Patchwork [2/3] UBUNTU: (buildenv) Drop retag-branch script

login
register
mail settings
Submitter Stefan Bader
Date March 19, 2010, 10:45 a.m.
Message ID <1268995541-12057-3-git-send-email-stefan.bader@canonical.com>
Download mbox | patch
Permalink /patch/48125/
State Accepted
Delegated to: Stefan Bader
Headers show

Comments

Stefan Bader - March 19, 2010, 10:45 a.m.
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

Patch

diff --git a/debian/scripts/misc/retag-branch b/debian/scripts/misc/retag-branch
deleted file mode 100755
index c609b92..0000000
--- a/debian/scripts/misc/retag-branch
+++ /dev/null
@@ -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);