summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2017-05-01 19:44:54 +0000
committerNorbert Preining <preining@logic.at>2017-05-01 19:44:54 +0000
commitc65379227033353abfb08dbfa37ef276f966dd30 (patch)
tree4c45460fab0a1feac38784d55b00bb4ce497f90b /Master
parent2cdf469e54f3d9b21b305c75678577575149162f (diff)
remove dummy file
git-svn-id: svn://tug.org/texlive/trunk@44138 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/bin/update-commit-svn-list.pl63
1 files changed, 0 insertions, 63 deletions
diff --git a/Master/tlpkg/bin/update-commit-svn-list.pl b/Master/tlpkg/bin/update-commit-svn-list.pl
deleted file mode 100644
index c098b1f79d7..00000000000
--- a/Master/tlpkg/bin/update-commit-svn-list.pl
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/usr/bin/perl
-
-$^W = 1;
-
-use strict;
-
-if ($#ARGV < 1) {
- die("usage: $0 git-dir commit-rev-file");
-}
-
-my $svnroot = $ARGV[0];
-my $comrevfile = $ARGV[1];
-
-init_from_git($svnroot, $comrevfile);
-
-sub find_last_done_com {
- my $lastrev = "";
- my $comrevfile = shift;
- if (open (COMREV, "<$comrevfile")) {
- my $foo = <COMREV>;
- chomp($foo);
- ($lastrev, undef) = split(" ", $foo);
- close(COMREV);
- }
- return $lastrev;
-}
-
-sub init_from_git {
- my ($svnroot, $comrevfile) = @_;
-
- my $lastrev = find_last_done_com($comrevfile);
- printf STDERR "calling cd $svnroot; git --no-pager log --pretty=format:%%h $lastrev..HEAD\n";
- my @foo = `cd $svnroot; git --no-pager log --pretty=format:%h $lastrev..HEAD`;
- chomp(@foo);
- my $retval = $?;
- if ($retval != 0) {
- $retval /= 256 if $retval > 0;
- die("TLTree: git log in $svnroot returned $retval, stopping.\n");
- }
- for my $c (@foo) {
- print STDERR "calling cd $svnroot; git --no-pager svn find-rev $c\n";
- my $r = `cd $svnroot; git --no-pager svn find-rev $c`;
- chomp($r);
- if (!$r) {
- # found a commit without svn rev, try to find it under the parents
- my $foo = $c;
- my $nr = 0;
- while (1) {
- $foo .= "^";
- $nr++;
- my $tr = `cd $svnroot; git --no-pager svn find-rev $foo`;
- chomp($tr);
- if ($tr) {
- # we add the number of parents to the currev
- $r = "$c+$nr"; # that is NOT addition!
- last;
- }
- }
- }
- print "$c $r\n";
- }
-}
-