diff options
| author | Norbert Preining <preining@logic.at> | 2012-11-18 08:14:17 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2012-11-18 08:14:17 +0000 |
| commit | 4db179d36a63c94357ea1b40ad957753d403a58c (patch) | |
| tree | 03bdc00832f81eb76a8f4d03c04d4dae324802a9 | |
| parent | 778306c7e8d6b982cdb06a0edd5ae07573dcb240 (diff) | |
rename tlerror -> tlwarn, we do not have tlerror ;-)
git-svn-id: svn://tug.org/texlive/trunk@28293 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 12 |
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) { |