diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
| -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) { |