summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-10-17 00:05:16 +0000
committerKarl Berry <karl@freefriends.org>2008-10-17 00:05:16 +0000
commitcf8f90c9e6980641eae6de378b7cef087c2b5ca5 (patch)
treeca2838c01ee13d89f0889db86b56f0d0431b2239 /Master/tlpkg/TeXLive/TLPDB.pm
parentccfb7362e633d55206b5f6cdb66668f835625b32 (diff)
wording, newlines, identification
git-svn-id: svn://tug.org/texlive/trunk@10992 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm10
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;