diff options
author | Karl Berry <karl@freefriends.org> | 2008-10-17 00:05:16 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-10-17 00:05:16 +0000 |
commit | cf8f90c9e6980641eae6de378b7cef087c2b5ca5 (patch) | |
tree | ca2838c01ee13d89f0889db86b56f0d0431b2239 /Master/tlpkg/TeXLive | |
parent | ccfb7362e633d55206b5f6cdb66668f835625b32 (diff) |
wording, newlines, identification
git-svn-id: svn://tug.org/texlive/trunk@10992 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 38aca49906a..5b985616582 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -174,7 +174,7 @@ sub remove_package { if (defined($self->{'tlps'}{$pkg})) { delete $self->{'tlps'}{$pkg}; } else { - tlwarn("Cannot find package $pkg for removal in tlpdb!"); + tlwarn("TLPDB: package to be removed not found: $pkg\n"); } } @@ -672,7 +672,7 @@ sub _generate_listfile { } else { # speudo dependencies on $Package.ARCH can be ignored if ($d !~ m/\.ARCH$/) { - tlwarn("Strange: $tlp->name depends on $d, but this package does not exists!\n"); + tlwarn("TLPDB: package $tlp->name depends on $d, but this does not exist\n"); } } } @@ -691,7 +691,7 @@ sub _generate_listfile { foreach my $p (@lop) { my $subtlp = $self->get_package($p); if (!defined($subtlp)) { - tlwarn("Strange: $listname references $p, but it is not in tlpdb"); + tlwarn("TLPDB: $listname references $p, but it is not in tlpdb\n"); } $s += $subtlp->total_size; } @@ -720,7 +720,7 @@ sub _generate_listfile { TeXLive::TLUtils::push_uniq(\@collpkg,$d); } } else { - tlwarn("Strange: $coll->name depends on $d, but this does not exists!\n"); + tlwarn("TLPDB: collection $coll->name depends on $d, but this does not exist\n"); } } } @@ -1038,7 +1038,7 @@ sub fmtutil_cnf_lines { my @formatlines; foreach my $f (sort keys %fmtcnffiles) { open(INFILE,"<$self->{'root'}/texmf/fmtutil/format.$f.cnf") - or tlwarn("Cannot open $self->{'root'}/texmf/fmtutil/format.$f.cnf\nThe generated fmtutil.cnf file might be incomplete!\nError: $!\n"); + or tlwarn("Cannot open $self->{'root'}/texmf/fmtutil/format.$f.cnf\nThe generated fmtutil.cnf file might be incomplete.\nError: $!\n"); @tmp = <INFILE>; close(INFILE); push @formatlines, @tmp; |