diff options
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index 8676008937d..016bb3623ed 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -80,7 +80,7 @@ sub init_from_git { my %files; my @lines; - my @foo = `cd $svnroot; git log --pretty=format:COMMIT=%h --name-only --diff-filter=A`; + my @foo = `cd $svnroot; git log --pretty=format:COMMIT=%h --name-only`; if ($retval != 0) { $retval /= 256 if $retval > 0; tldie("TLTree: git log in $svnroot returned $retval, stopping.\n"); @@ -97,7 +97,9 @@ sub init_from_git { $rev++; next; } else { - $files{$l} = $rev; + # we only use the first occurrence of $f from the top, + # that is the most recent change + $files{$l} = $rev if (not(defined($files{$l}))); } } @@ -114,7 +116,7 @@ sub init_from_git { sub init_from_gitsvn { my $self = shift; my $svnroot = $self->{'svnroot'}; - my @foo = `cd $svnroot; git log --pretty=format:%h --name-only --diff-filter=A`; + my @foo = `cd $svnroot; git log --pretty=format:%h --name-only`; chomp(@foo); my $retval = $?; if ($retval != 0) { |