summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Term/UI/History.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Term/UI/History.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Term/UI/History.pm14
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;