diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Term/UI/History.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Term/UI/History.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/Term/UI/History.pm b/Master/tlpkg/tlperl/lib/Term/UI/History.pm index 1d77c01c6f6..6da99ed5aaf 100644 --- a/Master/tlpkg/tlperl/lib/Term/UI/History.pm +++ b/Master/tlpkg/tlperl/lib/Term/UI/History.pm @@ -8,7 +8,7 @@ use base 'Log::Message::Simple'; =head1 NAME -Term::UI::History +Term::UI::History - history function =head1 SYNOPSIS @@ -37,8 +37,8 @@ manpage for additional functionality available via this package. =head2 history("message string" [,VERBOSE]) -Records a message on the stack, and prints it to C<STDOUT> -(or actually C<$HISTORY_FH>, see the C<GLOBAL VARIABLES> section +Records a message on the stack, and prints it to C<STDOUT> +(or actually C<$HISTORY_FH>, see the C<GLOBAL VARIABLES> section below), if the C<VERBOSE> option is true. The C<VERBOSE> option defaults to true. @@ -55,7 +55,7 @@ BEGIN { for my $func ( @EXPORT ) { no strict 'refs'; - + *$func = sub { my $msg = shift; $log->store( message => $msg, @@ -74,8 +74,10 @@ BEGIN { } -{ package Log::Message::Handlers; - +{ + package # hide this from PAUSE + Log::Message::Handlers; + sub history { my $self = shift; my $verbose = shift; |