re.pl: Unable to find … in history

[daxim]

Repro:

• run re.pl
• execute !!1

Got: Unable to find !1 in history

Expect: 1

How do I make it stop? I have already tried without success:

• installing Devel::REPL::Plugin::ReadLineHistory::WithoutExpansion
• setting $_REPL->term->Attribs->{do_expand} = 0; as documented in Devel::REPL::Plugin::ReadLineHistory

repl.rc:

#!/usr/bin/env perl
use 5.030;
use lib 'lib';
use utf8;
use strictures;
use autodie qw(:all);
use Moops;
use Kavorka;
use perl5i::2 -skip => [qw(Signatures)];
use Devel::REPL::Plugin::ReadLineHistory::WithoutExpansion;

$_REPL->load_plugin(qw(
    Colors
    DataPrinter
    DumpHistory
    FindVariable
    History
    Interrupt
    LexEnv
    MultiLine::PPI
    OutputCache
    Packages
    Peek
    PPI
    Refresh
    ReadLineHistory::WithoutExpansion
    ShowClass
    Completion
    CompletionDriver::Globals
    CompletionDriver::INC
    CompletionDriver::Keywords
    CompletionDriver::LexEnv
    CompletionDriver::Methods
    CompletionDriver::Turtles
));

$_REPL->term->Attribs->{history_quotes_inhibit_expansion} = 1;
$_REPL->term->Attribs->{do_expand} = 0;

[Corion]

Looking through the source code of Devel::REPL::Plugin::History, it seems that Devel::REPL::Plugin::ReadLineHistory::WithoutExpansion simply fiddles the wrong bits (well, the ReadLine expansion of the underlying Term::ReadLine object). The source code in Devel::REPL::Plugin::History ignores all that and does the ! expansion in a hardcoded way:

# Devel::REPL::Plugin::History
around 'read' => sub {
   my $orig = shift;
   my ($self, @args) = @_;
   my $line = $self->$orig(@args);
   if (defined $line) {
      if ($line =~ m/^!(.*)$/) {
         my $call = $1;
         $line = $self->history_call($call);
         if (defined $line) {
            $self->print($line."\n");
         } else {
            return "'Unable to find ${call} in history'";
         }
      }
      if ($line =~ m/\S/) {
         $self->push_history($line);
      }
   }
   return $line;
};

Looking at the code more, prefixing !!1 by whitespace should work around the issue in the way you want...