This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix RT [perl #72156] Re: Perl 5.12.0 RC 0 - Pager detection
[metaconfig.git] / U / modified / pager.U
1 ?RCS: $Id: pager.U 1 2006-08-24 12:32:52Z rmanfredi $
2 ?RCS:
3 ?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
4 ?RCS: 
5 ?RCS: You may redistribute only under the terms of the Artistic Licence,
6 ?RCS: as specified in the README file that comes with the distribution.
7 ?RCS: You may reuse parts of this distribution only within the terms of
8 ?RCS: that same Artistic Licence; a copy of which may be found at the root
9 ?RCS: of the source tree for dist 4.0.
10 ?RCS:
11 ?RCS: $Log: pager.U,v $
12 ?RCS: Revision 3.0.1.2  1995/01/30  14:41:26  ram
13 ?RCS: patch49: ensure dflt gets initialized in case no pagers are found (WED)
14 ?RCS:
15 ?RCS: Revision 3.0.1.1  1994/10/29  16:27:45  ram
16 ?RCS: patch36: replaced Myread by Getfile in the dependency line
17 ?RCS:
18 ?RCS: Revision 3.0  1993/08/18  12:09:30  ram
19 ?RCS: Baseline for dist 3.0 netwide release.
20 ?RCS:
21 ?MAKE:pager: pg more less Getfile Oldconfig
22 ?MAKE:  -pick add $@ %<
23 ?S:pager:
24 ?S:     This variable contains the name of the preferred pager on the system.
25 ?S:     Usual values are (the full pathnames of) more, less, pg, or cat.
26 ?S:.
27 : locate the preferred pager for this system
28 fn=f/
29 case "$pager" in
30 '')
31         dflt=''
32         case "$pg" in
33         /*) dflt=$pg;;
34         [a-zA-Z]:/*) dflt=$pg;;
35         esac
36         case "$more" in
37         /*) dflt=$more;;
38         [a-zA-Z]:/*) dflt=$more;;
39         esac
40         case "$less" in
41         /*) dflt=$less;;
42         [a-zA-Z]:/*) dflt=$less;;
43         esac
44         case "$dflt" in
45         '') dflt=/usr/ucb/more;;
46         esac
47         ;;
48 *)      dflt="$pager"
49         ;;
50 esac
51 ?X: Instruct ./getfile to trust the default pager value,
52 ?X: even if it does not begin with a slash.  For example, on os2,
53 ?X: pager might be cmd /c more.  Also, it might include some options,
54 ?X: such as '/usr/bin/less -R'.  ./getfile would report that 
55 ?X: "/usr/bin/less -R" doesn't exist.
56 ?X: See comments in Getfile.U.
57 fn="f/($dflt)"
58 echo " "
59 rp='What pager is used on your system?'
60 . ./getfile
61 pager="$ans"
62