This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
stop lib/perl5db.t failure if Term::ReadLine::Perl is installed
authorSlaven Rezic <slaven@rezic.de>
Mon, 24 Sep 2007 23:24:37 +0000 (01:24 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 25 Sep 2007 08:20:31 +0000 (08:20 +0000)
Message-ID: <871wcnwycq.fsf@biokovo-amd64.herceg.de>

p4raw-id: //depot/perl@31959

lib/perl5db.t

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