parent
1195bed77a
commit
5e648b2b39
|
@ -308,7 +308,7 @@ sub run {
|
||||||
|
|
||||||
# set up readline if necessary
|
# set up readline if necessary
|
||||||
unless($pipe) {
|
unless($pipe) {
|
||||||
require Term::ReadLine qw();
|
require Term::ReadLine;
|
||||||
$term = Term::ReadLine->new('IPERL');
|
$term = Term::ReadLine->new('IPERL');
|
||||||
my $attribs = $term->Attribs();
|
my $attribs = $term->Attribs();
|
||||||
$attribs->{special_prefixes} = '$@%*&';
|
$attribs->{special_prefixes} = '$@%*&';
|
||||||
|
|
Loading…
Reference in New Issue