X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FReadLineHistory.pm;h=bd75cb42eb2231366a6eb18db33c0832d811a5b9;hb=f109bc790c4450543e3bd07beb3abee5c4b923e0;hp=2d7428fd3d312687b269f41dae91a7be78741d76;hpb=265cea44dbcb95298e8753c2a8b595e9b1a25395;p=p5sagit%2FDevel-REPL.git

diff --git a/lib/Devel/REPL/Plugin/ReadLineHistory.pm b/lib/Devel/REPL/Plugin/ReadLineHistory.pm
index 2d7428f..bd75cb4 100644
--- a/lib/Devel/REPL/Plugin/ReadLineHistory.pm
+++ b/lib/Devel/REPL/Plugin/ReadLineHistory.pm
@@ -3,11 +3,16 @@
 #
 # epitaph, 22nd April 2007
 
+use strict;
+use warnings;
 package Devel::REPL::Plugin::ReadLineHistory;
 
+our $VERSION = '1.003027';
+
 use Devel::REPL::Plugin;
 use File::HomeDir;
 use File::Spec;
+use namespace::autoclean;
 
 my $hist_file = $ENV{PERLREPL_HISTFILE} ||
     File::Spec->catfile(File::HomeDir->my_home, '.perlreplhist');
@@ -39,8 +44,16 @@ around 'run' => sub {
          close HIST;
       }
    }
-   $self->term->Attribs->{do_expand}=1;
+
+   $self->term->Attribs->{do_expand}=1;  # for Term::ReadLine::Gnu
+   $self->term->MinLine(2);              # don't save one letter commands
+
+   # let History plugin know we have Term::ReadLine support
+   $self->have_readline_history(1) if $self->can('have_readline_history');
+
+
    $self->$orig(@args);
+
    if ($self->term->ReadLine eq 'Term::ReadLine::Gnu') {
       $self->term->WriteHistory($hist_file) ||
       $self->print("warning: failed to write history file $hist_file");
@@ -91,12 +104,12 @@ and to disable history expansion from GNU readline/history do
 
 =head1 CONFLICTS
 
-Note that Term::ReadLine::Perl does not support a history
+Note that L<Term::ReadLine::Perl> does not support a history
 expansion method.  In that case, you may wish to use the
-Devel::REPL History plugin which provides similar functions.
-Work is underway to make use of either History or
-ReadLineHistory consistent for expansion with either the
-Term::ReadLine::Gnu support or Term::ReadLine::Perl.
+L<Devel::REPL History plugin|Devel::REPL::Plugin::History> which provides similar functions.
+Work is underway to make use of either L<History|Devel::REPL::Plugin::History> or
+L<ReadLineHistory|Devel::REPL::Plugin::ReadHistory>> consistent for expansion with either the
+L<Term::ReadLine::Gnu> support or L<Term::ReadLine::Perl>.
 
 =cut