This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Configure has a path to less and perl5db.pl can use it
authorJosh ben Jore <jjore@cpan.org>
Thu, 15 Jul 2010 13:04:26 +0000 (13:04 +0000)
committerJosh ben Jore <jjore@cpan.org>
Thu, 15 Jul 2010 13:04:26 +0000 (13:04 +0000)
lib/perl5db.pl

index b49fc41..5ccdbbe 100644 (file)
@@ -7583,6 +7583,12 @@ C<$ENV{LESS}> so we don't have to go through doing the stats again.
 
 sub fix_less {
 
+    my $config_less = eval {
+       require Config;
+       $Config::Config{less};
+    };
+    return $config_less if $config_less;
+
     # We already know if this is set.
     return if defined $ENV{LESS} && $ENV{LESS} =~ /r/;