diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Log/Message')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Log/Message/Config.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Log/Message/Handlers.pm | 5 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Log/Message/Item.pm | 5 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/Log/Message/Simple.pm | 4 |
4 files changed, 11 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/Log/Message/Config.pm b/Master/tlpkg/tlperl/lib/Log/Message/Config.pm index 9769119ed32..fff771bbb8a 100644 --- a/Master/tlpkg/tlperl/lib/Log/Message/Config.pm +++ b/Master/tlpkg/tlperl/lib/Log/Message/Config.pm @@ -8,7 +8,7 @@ use Locale::Maketext::Simple Style => 'gettext'; BEGIN { use vars qw[$VERSION $AUTOLOAD]; - $VERSION = 0.01; + $VERSION = 0.04; } sub new { diff --git a/Master/tlpkg/tlperl/lib/Log/Message/Handlers.pm b/Master/tlpkg/tlperl/lib/Log/Message/Handlers.pm index c7c35c6e389..366c03ad018 100644 --- a/Master/tlpkg/tlperl/lib/Log/Message/Handlers.pm +++ b/Master/tlpkg/tlperl/lib/Log/Message/Handlers.pm @@ -1,5 +1,8 @@ package Log::Message::Handlers; use strict; +use vars qw[$VERSION]; + +$VERSION = '0.04'; =pod @@ -111,7 +114,7 @@ sub warn { warn shift->message; } =head2 trace Will provide a traceback of this error item back to the first one that -occurrent, clucking with every item as it comes across it. +occurred, clucking with every item as it comes across it. =cut diff --git a/Master/tlpkg/tlperl/lib/Log/Message/Item.pm b/Master/tlpkg/tlperl/lib/Log/Message/Item.pm index 85ae6fc6003..918a366e8c6 100644 --- a/Master/tlpkg/tlperl/lib/Log/Message/Item.pm +++ b/Master/tlpkg/tlperl/lib/Log/Message/Item.pm @@ -1,6 +1,7 @@ package Log::Message::Item; use strict; +use vars qw[$VERSION]; use Params::Check qw[check]; use Log::Message::Handlers; @@ -10,7 +11,7 @@ use Carp (); BEGIN { use vars qw[$AUTOLOAD $VERSION]; - $VERSION = $Log::Message::VERSION; + $VERSION = '0.04'; } ### create a new item. @@ -88,7 +89,7 @@ Log::Message::Item - Message objects for Log::Message $item->remove; # delete the item from the stack it was on # Besides these methods, you can also call the handlers on - # the object specificallly. + # the object specifically. # See the Log::Message::Handlers manpage for documentation on what # handlers are available by default and how to add your own diff --git a/Master/tlpkg/tlperl/lib/Log/Message/Simple.pm b/Master/tlpkg/tlperl/lib/Log/Message/Simple.pm index 18790365fdf..efceae5b676 100644 --- a/Master/tlpkg/tlperl/lib/Log/Message/Simple.pm +++ b/Master/tlpkg/tlperl/lib/Log/Message/Simple.pm @@ -5,7 +5,7 @@ use Log::Message private => 0;; BEGIN { use vars qw[$VERSION]; - $VERSION = 0.06; + $VERSION = 0.08; } @@ -269,6 +269,8 @@ If this option is set to C<true>, every call to C<error()> will generate a stacktrace using C<Carp::shortmess()>. Defaults to C<false> +=back + =cut BEGIN { |