summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-11-18 08:14:17 +0000
committerNorbert Preining <preining@logic.at>2012-11-18 08:14:17 +0000
commit4db179d36a63c94357ea1b40ad957753d403a58c (patch)
tree03bdc00832f81eb76a8f4d03c04d4dae324802a9 /Master/tlpkg/TeXLive/TLPDB.pm
parent778306c7e8d6b982cdb06a0edd5ae07573dcb240 (diff)
rename tlerror -> tlwarn, we do not have tlerror ;-)
git-svn-id: svn://tug.org/texlive/trunk@28293 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 53b9c1040f5..25cfb74b605 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -2190,7 +2190,7 @@ sub make_virtual {
my $self = shift;
if (!$self->is_virtual) {
if ($self->list_packages) {
- tlerror("Cannot convert a initialized tlpdb to virtual for now!\n");
+ tlwarn("Cannot convert a initialized tlpdb to virtual for now!\n");
return 0;
}
$self->{'virtual'} = 1;
@@ -2201,11 +2201,11 @@ sub make_virtual {
sub virtual_get_tlpdb {
my ($self, $tag) = @_;
if (!$self->is_virtual) {
- tlerror("Cannot remove tlpdb from a non-virtual tlpdb!\n");
+ tlwarn("Cannot remove tlpdb from a non-virtual tlpdb!\n");
return 0;
}
if (!defined($self->{'tlpdbs'}{$tag})) {
- tlerror("TLPDB virtual_get_tlpdb: unknown tag $tag\n");
+ tlwarn("TLPDB virtual_get_tlpdb: unknown tag $tag\n");
return 0;
}
return $self->{'tlpdbs'}{$tag};
@@ -2214,7 +2214,7 @@ sub virtual_get_tlpdb {
sub virtual_add_tlpdb {
my ($self, $tlpdb, $tag) = @_;
if (!$self->is_virtual) {
- tlerror("Cannot add tlpdb to a non-virtual tlpdb!\n");
+ tlwarn("Cannot add tlpdb to a non-virtual tlpdb!\n");
return 0;
}
$self->{'tlpdbs'}{$tag} = $tlpdb;
@@ -2230,7 +2230,7 @@ sub virtual_add_tlpdb {
sub virtual_remove_tlpdb {
my ($self, $tag) = @_;
if (!$self->is_virtual) {
- tlerror("Cannot remove tlpdb from a non-virtual tlpdb!\n");
+ tlwarn("Cannot remove tlpdb from a non-virtual tlpdb!\n");
return 0;
}
if (!defined($self->{'tlpdbs'}{$tag})) {
@@ -2359,7 +2359,7 @@ sub virtual_pinning {
my $self = shift;
my (@pins) = @_;
if (!$self->is_virtual) {
- tlerror("Not-virtual databases cannot have pinning data.\n");
+ tlwarn("Not-virtual databases cannot have pinning data.\n");
return 0;
}
if (!@pins) {