parent
bc76c056db
commit
1195bed77a
|
@ -13,8 +13,7 @@ use Scalar::Util qw();
|
|||
|
||||
# NOTE: some Term::ReadLine implementations don't support features that we sort
|
||||
# of need. Term::ReadLine::Gnu is recommended.
|
||||
use Term::ReadLine qw();
|
||||
use Term::ReadLine::Gnu qw();
|
||||
#use Term::ReadLine qw();
|
||||
|
||||
# globals
|
||||
Getopt::Long::Configure('bundling');
|
||||
|
@ -309,6 +308,7 @@ sub run {
|
|||
|
||||
# set up readline if necessary
|
||||
unless($pipe) {
|
||||
require Term::ReadLine qw();
|
||||
$term = Term::ReadLine->new('IPERL');
|
||||
my $attribs = $term->Attribs();
|
||||
$attribs->{special_prefixes} = '$@%*&';
|
||||
|
|
Loading…
Reference in New Issue