U/perl/versiononly.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 2000, Andy Dougherty
   4 ?RCS:
   5 ?RCS: You may redistribute only under the terms of the Artistic License,
   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 License; a copy of which may be found at the root
   9 ?RCS: of the source tree for dist 3.0.
  10 ?RCS:
  11 ?MAKE:versiononly: cat Myread Setvar Devel
  12 ?MAKE:  -pick add $@ %<
  13 ?LINT:set versiononly
  14 ?Y:TOP
  15 ?S:versiononly:
  16 ?S:     If set, this symbol indicates that only the version-specific
  17 ?S:     components of a perl installation should be installed.
  18 ?S:     This may be useful for making a test installation of a new
  19 ?S:     version without disturbing the existing installation.
  20 ?S:     Setting versiononly is equivalent to setting installperl's -v option.
  21 ?S:     In particular, the non-versioned scripts and programs such as
  22 ?S:     a2p, c2ph, h2xs, pod2*, and perldoc are not installed
  23 ?S:     (see INSTALL for a more complete list).  Nor are the man
  24 ?S:     pages installed.
  25 ?S:     Usually, this is undef.
  26 ?S:.
  27 ?LINT:extern inc_version_list
  28 ?LINT:change inc_version_list
  29 ?LINT:extern inc_version_list_init
  30 ?LINT:change inc_version_list_init
  31 ?LINT:extern version
  32 : determine whether to use a version number suffix for installed binaries
  33 echo " "
  34 $cat <<EOM
  35 Do you want to use a version number suffix for installed binaries? This
  36 will install 'perl$version' instead of 'perl', and likewise for other
  37 binaries like 'perldoc' and 'cpan'. This allows many versions of perl
  38 to be installed side-by-side. Unless you are a developer, you probably
  39 do *not* want to do this.
  40 EOM
  41 case "$versiononly" in
  42 "$define"|[Yy]*|true) dflt='y' ;;
  43 *) dflt='n';
  44 esac
  45 rp="Do you want to use a version number suffix for installed binaries?"
  46 . ./myread
  47 case "$ans" in
  48 [yY]*)  val="$define";;
  49 *)      val="$undef" ;;
  50 esac
  51 set versiononly
  52 eval $setvar
  53
  54 case "$versiononly" in
  55 "$define") inc_version_list=''
  56            inc_version_list_init=0
  57            ;;
  58 esac
  59