summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpsrc2tlpdb
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-06-10 01:18:26 +0000
committerKarl Berry <karl@freefriends.org>2008-06-10 01:18:26 +0000
commit255db2f3bb08ad2932f94408958bf388e138275d (patch)
treedbd95da7de16932b9fb58207c3c8ea62a5e8b797 /Master/tlpkg/bin/tlpsrc2tlpdb
parent08a7a657ead12cbef29c4e403b49a408337fd68e (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-xMaster/tlpkg/bin/tlpsrc2tlpdb8
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) {