diff options
author | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
commit | a4c42bfb2337d37da89d789cb8cc226367994e32 (patch) | |
tree | c3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/Log | |
parent | 8274475057f024d35332ac47c2e2f23ea156e6ed (diff) |
perl 5.14.2 from siep
git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Log')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Log/Message.pm | 2 | ||||
-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 |
5 files changed, 12 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/Log/Message.pm b/Master/tlpkg/tlperl/lib/Log/Message.pm index 3b2f43e57da..96ab34a2645 100644 --- a/Master/tlpkg/tlperl/lib/Log/Message.pm +++ b/Master/tlpkg/tlperl/lib/Log/Message.pm @@ -12,7 +12,7 @@ local $Params::Check::VERBOSE = 1; BEGIN { use vars qw[$VERSION @ISA $STACK $CONFIG]; - $VERSION = 0.02; + $VERSION = 0.04; $STACK = []; } 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 { |