From: Slaven Rezic <slaven@rezic.de>
Date: Mon, 24 Sep 2007 23:24:37 +0000 (+0200)
Subject: stop lib/perl5db.t failure if Term::ReadLine::Perl is installed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c18cf8ce1a7db3a4b53093694fe25dfbe97453b3;p=p5sagit%2Fp5-mst-13.2.git

stop lib/perl5db.t failure if Term::ReadLine::Perl is installed
Message-ID: <871wcnwycq.fsf@biokovo-amd64.herceg.de>

p4raw-id: //depot/perl@31959
---

diff --git a/lib/perl5db.t b/lib/perl5db.t
index fe39292..4553e02 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -53,7 +53,10 @@ rc(
     }\n|,
 );
 
-runperl(switches => [ '-d' ], progfile => $target);
+{
+    local $ENV{PERLDB_OPTS} = "ReadLine=0";
+    runperl(switches => [ '-d' ], progfile => $target);
+}
 
 my $contents;
 {