X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FReadLineHistory.pm;h=61ad9c09ed365a3a26075d08fd6af73ce3c16915;hp=1830395343b9e52e32638a375b4e5c46c204807b;hb=4906ca4e09303a2703c2d0f93d0ea5c46ec900d5;hpb=6a5409bc859187db7d7553e4c19a559aeeba6430

diff --git a/lib/Devel/REPL/Plugin/ReadLineHistory.pm b/lib/Devel/REPL/Plugin/ReadLineHistory.pm
index 1830395..61ad9c0 100644
--- a/lib/Devel/REPL/Plugin/ReadLineHistory.pm
+++ b/lib/Devel/REPL/Plugin/ReadLineHistory.pm
@@ -1,14 +1,17 @@
 # First cut at using the readline history directly rather than reimplementing
 # it. It does save history but it's a little crappy; still playing with it ;)
-# 
+#
 # epitaph, 22nd April 2007
 
 package Devel::REPL::Plugin::ReadLineHistory;
 
 use Devel::REPL::Plugin;
+use File::HomeDir;
+use File::Spec;
+
+my $hist_file = $ENV{PERLREPL_HISTFILE} ||
+    File::Spec->catfile(File::HomeDir->my_home, '.perlreplhist');
 
-my $hist_file=$ENV{PERLREPL_HISTFILE} ||
-             (($ENV{HOME} || (getpwuid($<))[7]) . "/.perlreplhist");
 # HISTLEN should probably be in a config file to stop people accidentally
 # truncating their history if they start the program and forget to set
 # PERLREPL_HISTLEN
@@ -17,7 +20,12 @@ my $hist_len=$ENV{PERLREPL_HISTLEN} || 100;
 around 'run' => sub {
   my $orig=shift;
   my ($self, @args)=@_;
-  $self->term->stifle_history($hist_len);
+  if ($self->term->ReadLine eq 'Term::ReadLine::Gnu') {
+     $self->term->stifle_history($hist_len);
+  }
+  if ($self->term->ReadLine eq 'Term::ReadLine::Perl') {
+     $self->term->Attribs->{MaxHistorySize} = $hist_len;
+  }
   -f($hist_file) && $self->term->ReadHistory($hist_file);
   $self->term->Attribs->{do_expand}=1;
   $self->$orig(@args);