diff options
author | Karl Berry <karl@freefriends.org> | 2008-06-10 01:18:26 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-06-10 01:18:26 +0000 |
commit | 255db2f3bb08ad2932f94408958bf388e138275d (patch) | |
tree | dbd95da7de16932b9fb58207c3c8ea62a5e8b797 /Master/tlpkg/bin/tlpsrc2tlpdb | |
parent | 08a7a657ead12cbef29c4e403b49a408337fd68e (diff) |
first cut at making images
git-svn-id: svn://tug.org/texlive/trunk@8631 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tlpsrc2tlpdb')
-rwxr-xr-x | Master/tlpkg/bin/tlpsrc2tlpdb | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb index f0db6132b6f..e5145c0be7b 100755 --- a/Master/tlpkg/bin/tlpsrc2tlpdb +++ b/Master/tlpkg/bin/tlpsrc2tlpdb @@ -72,15 +72,9 @@ sub main info("$0: updating from tlpsrc ...\n"); my $tldb = TeXLive::TLPDB->new; - my $last = ""; my $src_count = 0; foreach my $f (@ARGV) { if ($opt_all) { # progress report - my $first = lc (substr ($f, 0, 1)); - if ($first ne $last) { - print STDERR "$first "; - $last = $first; - } $src_count++; } my $tlsrc = new TeXLive::TLPSRC; @@ -95,7 +89,7 @@ sub main # split bin packages off if (not($opt_nobinsplit)) { # packages which have already a .win32 extension or the - # 00texlive.something package are NOT spit, never! + # 00texlive.something package are NOT split, never! if ( ($tlp->name !~ m/\.win32/) && ($tlp->name !~ m/^00texlive\./) ) { my @binobjs = $tlp->split_bin_package; foreach (@binobjs) { |