Suppress system Term::ReadLine::Gnu
authorPetr Písař <ppisar@redhat.com>
Mon, 8 Jul 2013 14:10:38 +0000 (16:10 +0200)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 10 Jul 2013 04:27:45 +0000 (21:27 -0700)
perl5db.t will die in Term::ReadLine if Term::ReadLine::Gnu is installed
in the system. Let's favour core implementation.

Best solution would be to prune @INC to prevent from loading already
installed modules like this:

BEGIN {
    use Config;
    @INC = grep { ! /^\Q$Config{installprefix}\E(\/|\z)/ } @INC;
}

However that is not possible (now) due to various execs (even without
proper -I) in the harness chain. perl should implement -nostdinc
option.

Signed-off-by: Petr Písař <ppisar@redhat.com>
lib/perl5db.t

index 9a57960..6ab4694 100644 (file)
@@ -26,6 +26,7 @@ BEGIN {
         print "1..0 # Skip: \$ENV{PERL5DB} is already set to '$ENV{PERL5DB}'\n";
         exit 0;
     }
+    $ENV{PERL_RL} = 'Perl'; # Suppress system Term::ReadLine::Gnu
 }
 
 plan(116);