summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Log
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-05-21 00:15:27 +0000
committerKarl Berry <karl@freefriends.org>2012-05-21 00:15:27 +0000
commita4c42bfb2337d37da89d789cb8cc226367994e32 (patch)
treec3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/Log
parent8274475057f024d35332ac47c2e2f23ea156e6ed (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.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/Log/Message/Config.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/Log/Message/Handlers.pm5
-rw-r--r--Master/tlpkg/tlperl/lib/Log/Message/Item.pm5
-rw-r--r--Master/tlpkg/tlperl/lib/Log/Message/Simple.pm4
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 {