diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-09-11 11:41:48 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-12 14:03:05 +0000 |
| commit | dfe814dcbddaafae2f4df1f35c60ea7453270233 (patch) | |
| tree | 546e9c2c31a00c3b36e199985bfd06226cd4fc8f /configure.com | |
| parent | 00450673404012cace8351f59c3c7cd7b1548be4 (diff) | |
| download | perl-dfe814dcbddaafae2f4df1f35c60ea7453270233.tar.gz | |
[patch: perl@7045] vms updates
Message-ID: <Pine.OSF.4.10.10009111840030.339348-100000@aspara.forte.com>
p4raw-id: //depot/perl@7058
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/configure.com b/configure.com index 99a8335857..c0e305e752 100644 --- a/configure.com +++ b/configure.com @@ -2491,8 +2491,17 @@ $ make = F$EDIT(build,"UPCASE") $! $!: locate the preferred pager for this system $!pagers = "most|more|less|type/page" -$!rp="What pager is used on your system? [''dflt'] " -$ pager="most" +$ dflt = "type/page" +$! assume that the presence of a most symbol indicates the presence +$! of the pager. +$ IF F$TYPE(most) .EQS. "STRING" THEN dflt = "most" +$ IF F$TYPE(pager) .EQS. "STRING" THEN dflt = pager +$ rp="What pager is used on your system? [''dflt'] " +$ GOSUB myread +$ IF (ans .EQS. "") +$ THEN pager = dflt +$ ELSE pager = ans +$ ENDIF $! $! update [.vms]config.vms here $! @@ -2734,6 +2743,7 @@ $ quadtype = "long long" $ uquadtype = "unsigned long long" $ quadkind = "QUAD_IS_LONG_LONG" $ d_frexpl = "define" +$ d_isnan = "define" $ d_isnanl = "define" $ d_modfl = "define" $ ELSE @@ -2765,6 +2775,7 @@ $ quadtype = "long" $ uquadtype = "unsigned long" $ quadkind = "QUAD_IS_LONG" $ d_frexpl = "undef" +$ d_isnan = "undef" $ d_isnanl = "undef" $ d_modfl = "undef" $ ENDIF |