This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix .gitignore: only ignore 'perl' in root of repo, not U/perl subdir
[metaconfig.git] / U / perl / usesocks.U
CommitLineData
959f3c4c
JH
1?RCS: $Id$
2?RCS:
3?RCS: Copyright (c) 1999 Jarkko Hietaniemi
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:usesocks: Myread Oldconfig Setvar
9?MAKE: -pick add $@ %<
10?Y:TOP
11?S:usesocks:
12?S: This variable conditionally defines the USE_SOCKS symbol,
13?S: and indicates that Perl should be built to use SOCKS.
14?S:.
15?C:USE_SOCKS:
16?C: This symbol, if defined, indicates that Perl should
17?C: be built to use socks.
18?C:.
a38738d1
JH
19?H:?%<:#ifndef USE_SOCKS
20?H:?%<:#$usesocks USE_SOCKS /**/
21?H:?%<:#endif
959f3c4c
JH
22?H:.
23?LINT:set usesocks
24?INIT:: set usesocks on the Configure command line to enable socks.
2f125bce 25: Check is we will use socks
959f3c4c
JH
26?X: We should really have some explanatory text here, and some
27?X: automatic setting of sensible defaults.
635fdf3e
JH
28case "$usesocks" in
29$define|true|[yY]*) dflt='y';;
30*) dflt='n';;
31esac
959f3c4c
JH
32cat <<EOM
33
34Perl can be built to use the SOCKS proxy protocol library. To do so,
11c1f30a
JH
35Configure must be run with -Dusesocks. If you use SOCKS you also need
36to use the PerlIO abstraction layer, this will be implicitly selected.
959f3c4c 37
635fdf3e 38If this doesn't make any sense to you, just accept the default '$dflt'.
959f3c4c 39EOM
959f3c4c
JH
40rp='Build Perl for SOCKS?'
41. ./myread
42case "$ans" in
4c42341b 43y|Y) val="$define" ;;
959f3c4c
JH
44*) val="$undef" ;;
45esac
46set usesocks
47eval $setvar
48