Commit | Line | Data |
---|---|---|
959f3c4c JH |
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 | |
0d616ccb | 19 | ?S: and perl5.001 stored |
959f3c4c JH |
20 | ?S: architecture-dependent public library files. |
21 | ?S:. | |
22 | ?S:oldarchlibexp: | |
0d616ccb | 23 | ?S: This variable is the same as the oldarchlib variable, but is |
959f3c4c JH |
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 | |
0d616ccb | 35 | ?C: used in programs that are not prepared to deal with ~ expansion at |
959f3c4c JH |
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 | ;; | |
0d616ccb | 50 | *) dflt="$oldarchlib" |
959f3c4c JH |
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 | |
0d616ccb MBT |
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 | |
959f3c4c | 63 | will go into a version-specific directory such as |
0d616ccb | 64 | $archlib, |
959f3c4c JH |
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 |