# 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;
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);