Fix RT [perl #72156] Re: Perl 5.12.0 RC 0 - Pager detection
authorAndy Dougherty <doughera@lafayette.edu>
Thu, 2 Aug 2012 18:59:55 +0000 (14:59 -0400)
committerAndy Dougherty <doughera@lafayette.edu>
Thu, 2 Aug 2012 18:59:55 +0000 (14:59 -0400)
Instruct ./getfile to trust the default pager value.  It might not begin
with a slash, or it might include some options, such as
"/usr/bin/less -R".
This is based on commit 53ddb3ba3e23ab80444c30b4deefa64114408438 in
the metaconfig repository.

Configure

index 72a7c25..c88d99c 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -20424,9 +20424,9 @@ case "$pager" in
        esac
        ;;
 *)     dflt="$pager"
-       fn="f/($pager)"
        ;;
 esac
+fn="f/($dflt)"
 echo " "
 rp='What pager is used on your system?'
 . ./getfile