From 1195bed77a138332bb1a8ce3bf5be55253c3f9b1 Mon Sep 17 00:00:00 2001
From: moculus <none@none>
Date: Tue, 17 Jun 2008 22:59:13 +0000
Subject: [PATCH] --HG-- branch : pmacs2

---
 tools/iperl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/iperl b/tools/iperl
index 35e2acb..b4ab2c9 100755
--- a/tools/iperl
+++ b/tools/iperl
@@ -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} = '$@%*&';