diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-25 18:51:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-25 18:51:29 +0000 |
| commit | d604bb539292a3ccc3663d4b921f965ed8d57e92 (patch) | |
| tree | b5dd4842a20b8142904d02c1957f485e11710041 /Configure | |
| parent | ff934d9f5e270437150c129057d8593845e7671f (diff) | |
| download | perl-d604bb539292a3ccc3663d4b921f965ed8d57e92.tar.gz | |
Pager query tweaks from Andy Dougherty (for OS/2).
p4raw-id: //depot/perl@16786
Diffstat (limited to 'Configure')
| -rwxr-xr-x | Configure | 15 |
1 files changed, 11 insertions, 4 deletions
@@ -20,7 +20,7 @@ # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $ # -# Generated on Mon May 20 18:21:27 EET DST 2002 [metaconfig 3.0 PL70] +# Generated on Sat May 25 22:51:20 EET DST 2002 [metaconfig 3.0 PL70] # (with additional metaconfig patches by perlbug@perl.org) cat >c1$$ <<EOF @@ -3833,7 +3833,9 @@ esac case "$fn" in *\(*) - expr $fn : '.*(\(.*\)).*' | $tr ',' $trnl >getfile.ok + : getfile will accept an answer from the comma-separated list + : enclosed in parentheses even if it does not meet other criteria. + expr "$fn" : '.*(\(.*\)).*' | $tr ',' $trnl >getfile.ok fn=`echo $fn | sed 's/(.*)//'` ;; esac @@ -17845,6 +17847,7 @@ EOM esac fi : locate the preferred pager for this system +fn=f/ case "$pager" in '') dflt='' @@ -17864,10 +17867,14 @@ case "$pager" in '') dflt=/usr/ucb/more;; esac ;; -*) dflt="$pager";; +*) dflt="$pager" + : Instruct ./getfile to trust the hinted or previous pager value, + : even if it does not begin with a slash. For example, on os2, + : pager might be cmd /c more. See comments in UU/getfile. + fn="f/($pager)" + ;; esac echo " " -fn=f/ rp='What pager is used on your system?' . ./getfile pager="$ans" |