U/perl/oldarchlib.U

   1 ?RCS: $Id: oldarchlib.U,v $
   2 ?RCS:
   3 ?RCS: Copyright (c) 1996-1998, Andy Dougherty
   4 ?RCS:
   5 ?RCS: You may distribute under the terms of either the GNU General Public
   6 ?RCS: License or the Artistic License, as specified in the README file.
   7 ?RCS:
   8 ?MAKE:d_oldarchlib oldarchlib oldarchlibexp : archname privlib \
   9         archlib sitearch Getfile test Setvar Prefixit
  10 ?MAKE:  -pick add $@ %<
  11 ?Y:TOP
  12 ?S:d_oldarchlib:
  13 ?S:     This variable conditionally defines OLDARCHLIB to hold the pathname
  14 ?S:     of architecture-dependent library files for a previous
  15 ?S:     version of $package.
  16 ?S:.
  17 ?S:oldarchlib:
  18 ?S:     This variable holds the name of the directory in which perl5.000
  19 ?S:     and perl5.001 stored
  20 ?S:     architecture-dependent public library files.
  21 ?S:.
  22 ?S:oldarchlibexp:
  23 ?S:     This variable is the same as the oldarchlib variable, but is
  24 ?S:     filename expanded at configuration time, for convenient use.
  25 ?S:.
  26 ?C:OLDARCHLIB:
  27 ?C:     This variable, if defined, holds the name of the directory in
  28 ?C:     which the user has perl5.000 or perl5.001 architecture-dependent
  29 ?C:     public library files for $package.  For the most part, these
  30 ?C:     files will work with 5.002 (and later), but that is not
  31 ?C:     guaranteed.
  32 ?C:.
  33 ?C:OLDARCHLIB_EXP:
  34 ?C:     This symbol contains the ~name expanded version of OLDARCHLIB, to be
  35 ?C:     used in programs that are not prepared to deal with ~ expansion at
  36 ?C:     run-time.
  37 ?C:.
  38 ?H:#$d_oldarchlib OLDARCHLIB "$oldarchlib"              /**/
  39 ?H:#$d_oldarchlib OLDARCHLIB_EXP "$oldarchlibexp"               /**/
  40 ?H:.
  41 ?LINT:set d_oldarchlib
  42 : determine where old public architecture dependent libraries might be
  43 case "$oldarchlib" in
  44 '')     case "$privlib" in
  45         '') ;;
  46         *)      dflt="$privlib/$archname"
  47                 ;;
  48         esac
  49         ;;
  50 *)      dflt="$oldarchlib"
  51         ;;
  52 esac
  53 if $test ! -d "$dflt/auto"; then
  54         dflt=none
  55 fi
  56 cat <<EOM
  57
  58 In 5.001, Perl stored architecture-dependent library files in a directory
  59 with a name such as $privlib/$archname,
  60 and this directory contained files from the standard extensions and
  61 files from any additional extensions you might have added.  Starting
  62 with version 5.002, all the architecture-dependent standard extensions
  63 will go into a version-specific directory such as
  64 $archlib,
  65 while locally-added extensions will go into
  66 $sitearch.
  67
  68 If you wish Perl to continue to search the old architecture-dependent
  69 library for your local extensions, give the path to that directory.
  70 If you do not wish to use your old architecture-dependent library
  71 files, answer 'none'.
  72
  73 EOM
  74 fn=dn~
  75 rp='Directory for your old 5.001 architecture-dependent libraries?'
  76 . ./getfile
  77 oldarchlib="$ans"
  78 oldarchlibexp="$ansexp"
  79 case "$oldarchlib" in
  80 ''|' ') val="$undef" ;;
  81 *) val="$define" ;;
  82 esac
  83 set d_oldarchlib
  84 eval $setvar
  85