From 300c1eb6d37d46078d448d6d58938d5a80cd68ff Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 23 Apr 2014 21:46:20 +0000 Subject: (tl)perl 5.18.2 for windows from siep git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/Log/Message.pm | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) (limited to 'Master/tlpkg/tlperl/lib/Log/Message.pm') diff --git a/Master/tlpkg/tlperl/lib/Log/Message.pm b/Master/tlpkg/tlperl/lib/Log/Message.pm index 96ab34a2645..effcd133b9e 100644 --- a/Master/tlpkg/tlperl/lib/Log/Message.pm +++ b/Master/tlpkg/tlperl/lib/Log/Message.pm @@ -1,4 +1,5 @@ package Log::Message; +use if $] > 5.017, 'deprecate'; use strict; @@ -11,9 +12,7 @@ local $Params::Check::VERBOSE = 1; BEGIN { use vars qw[$VERSION @ISA $STACK $CONFIG]; - - $VERSION = 0.04; - + $VERSION = '0.06'; $STACK = []; } @@ -89,7 +88,7 @@ More on this below. These are individual message items, which are objects that contain the user message as well as the meta-data described above. -See the L manpage to see how to extract this +See the L manpage to see how to extract this meta-data and how to work with the Item objects. You should never need to create your own Item objects, but knowing about their methods and accessors is important if you want to write @@ -179,8 +178,8 @@ provided. =item verbose Log::Message makes use of another module to validate its arguments, -which is called L, which is a lightweight, yet -powerful input checker and parser. (See the L +which is called L, which is a lightweight, yet +powerful input checker and parser. (See the L manpage for details). The verbose setting will control whether this module will @@ -314,7 +313,7 @@ sub _new_stack { }; my $args = check( $tmpl, \%hash, $CONFIG->verbose ) or ( - warn(loc(q[Could not create a new stack object: %1], + warn(loc(q[Could not create a new stack object: %1], Params::Check->last_error) ), return @@ -399,9 +398,9 @@ sub store { %hash = @_; } - my $args = check( $tmpl, \%hash ) or ( - warn( loc(q[Could not store error: %1], Params::Check->last_error) ), - return + my $args = check( $tmpl, \%hash ) or ( + warn( loc(q[Could not store error: %1], Params::Check->last_error) ), + return ); my $extra = delete $args->{extra}; @@ -488,10 +487,10 @@ sub retrieve { } my $args = check( $tmpl, \%hash ) or ( - warn( loc(q[Could not parse input: %1], Params::Check->last_error) ), - return + warn( loc(q[Could not parse input: %1], Params::Check->last_error) ), + return ); - + my @list = grep { $_->tag =~ /$args->{tag}/ ? 1 : 0 } grep { $_->level =~ /$args->{level}/ ? 1 : 0 } @@ -561,7 +560,7 @@ This removes all items from the stack and returns them to the caller sub flush { my $self = shift; - + return splice @{$self->{STACK}}; } -- cgit v1.2.3