This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
backport 2c0c170a5682dcc9df1a873339af96740b1b0e52
authorH.Merijn Brand <merijn@nb09.procura.nl>
Tue, 9 Feb 2010 15:43:40 +0000 (16:43 +0100)
committerH.Merijn Brand <merijn@nb09.procura.nl>
Tue, 9 Feb 2010 15:43:40 +0000 (16:43 +0100)
U/modified/Loc.U

index f69095b..c25c1ed 100644 (file)
@@ -77,7 +77,7 @@
 ?V::pth loclist trylist
 ?F:./loc test_h
 ?T:thisthing thing xxx dir file say _test DJGPP
-?LINT:change PATH _egrep _ln _make
+?LINT:change PATH _egrep _ln _make _less
 ?LINT:extern _exe
 : find out where common programs are
 echo " "
@@ -297,6 +297,17 @@ egrep)
        _egrep=$grep
        ;;
 esac
+@if less
+case "$less" in
+'')    ;;
+*)     if $less -R </dev/null >/dev/null; then
+              echo "Substituting less -R for less."
+              less="$less -R"
+              _less=$less
+       fi
+       ;;
+esac
+@end
 @if ln
 case "$ln" in
 ln)