texlive[44138] Master/tlpkg/bin/update-commit-svn-list.pl: remove

[commits+preining at tug.org]

Revision: 44138
          http://tug.org/svn/texlive?view=revision&revision=44138
Author:   preining
Date:     2017-05-01 21:44:54 +0200 (Mon, 01 May 2017)
Log Message:
-----------
remove dummy file

Removed Paths:
-------------
    trunk/Master/tlpkg/bin/update-commit-svn-list.pl

Deleted: trunk/Master/tlpkg/bin/update-commit-svn-list.pl
===================================================================
--- trunk/Master/tlpkg/bin/update-commit-svn-list.pl	2017-05-01 19:44:08 UTC (rev 44137)
+++ trunk/Master/tlpkg/bin/update-commit-svn-list.pl	2017-05-01 19:44:54 UTC (rev 44138)
@@ -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";
-  }
-}
-