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 (file)
--- 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;
 {