d6
/
pmacs3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

--HG-- 

branch : pmacs2
This commit is contained in:
moculus 2008-06-17 22:59:13 +00:00
parent bc76c056db
commit 1195bed77a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tools/iperl
View File

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