From 6950efeaaa8aa2b42d126389f2432263419497f7 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 Apr 2002 23:41:01 +0000
Subject: [PATCH] Retract the UTF-8 filenames patch.  This may be better dealt
 with in Perl level, a la File::Spec (since the whole mess is strongly
 filesystem-specific).

p4raw-id: //depot/metaconfig@15835
---
 U/perl/Extensions.U | 11 +++++++++--
 U/perl/usecjk.U     | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 64 insertions(+), 2 deletions(-)
 create mode 100644 U/perl/usecjk.U

diff --git a/U/perl/Extensions.U b/U/perl/Extensions.U
index 447f57c..550c03a 100644
--- a/U/perl/Extensions.U
+++ b/U/perl/Extensions.U
@@ -12,7 +12,7 @@
 	Myread hint usedl d_sem d_socket i_db i_dbm i_rpcsvcdbm i_gdbm \ 
 	i_ndbm usethreads useithreads package test cat rsrc \
 	d_msg d_shm osname use64bitint i_langinfo d_nl_langinfo \
-	libs
+	libs usecjk
 ?MAKE:	-pick add $@ %<
 ?Y:BOTTOM
 ?S:known_extensions:
@@ -331,7 +331,14 @@ EOM
             *" Encode "*) # Add the subextensions of Encode
                 cd "$rsrc/ext"
                 for xxx in `ls Encode/*/Makefile.PL|awk -F/ '{print $2}'`; do
-                        dflt="$dflt Encode/$xxx"
+			case "$usecjk" in
+			define)	dflt="$dflt Encode/$xxx" ;;
+			*)	case "$xxx" in
+				CN|JP|KR|TW) ;;
+				*) dflt="$dflt Encode/$xxx" ;;
+				esac
+				;;
+			esac
                 done
                 cd "$tdir"
                 ;;
diff --git a/U/perl/usecjk.U b/U/perl/usecjk.U
new file mode 100644
index 0000000..df853cc
--- /dev/null
+++ b/U/perl/usecjk.U
@@ -0,0 +1,55 @@
+?RCS: $Id$
+?RCS:
+?RCS: Copyright (c) 2002 Jarkko Hietaniemi
+?RCS:
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?MAKE:usecjk: Myread Oldconfig Setvar
+?MAKE:	-pick add $@ %<
+?Y:TOP
+?S:usecjk:
+?S:	This variable conditionally defines the USE_CJK symbol,
+?S:	and indicates that Perl should be built to use CJK.
+?S:.
+?C:USE_CJK:
+?C:	This symbol, if defined, indicates that Perl should
+?C:	be built to use the CJK support of Encode.
+?C:.
+?H:?%<:#ifndef USE_CJK
+?H:?%<:#$usecjk	USE_CJK		/**/
+?H:?%<:#endif
+?H:.
+?LINT:set usecjk
+?LINT:set useperlio
+?LINT:extern useperlio
+?LINT:change useperlio
+?INIT:: set usecjk on the Configure command line to enable cjk.
+?X: We should really have some explanatory text here, and some
+?X: automatic setting of sensible defaults.
+case "$usecjk" in
+''|$define|true|[yY]*)	dflt='y';;
+*) dflt='n';;
+esac
+cat <<EOM
+
+Starting from 5.8.0 Perl comes with encoding support for the CJK languags
+(Chinese-Japanese-Korean, CN/JP/KR/TW).  Normally shared libraries are used,
+which means that the (relatively large, a few megabytes total) CJK encodings
+are loaded on demand (not consuming any memory if the are unused).  However,
+if you are building Perl statically, and/or are space-constrained, and
+if you are certain you won't be needing CJK support, you may consider
+leaving it out.  Note that the CJK support will always be built, but
+if you choose not to have it, it will be skipped in the installation phase.
+
+If this doesn't make any sense to you, just accept the default '$dflt'.
+EOM
+rp='Build Perl for CJK?'
+. ./myread
+case "$ans" in
+y*|Y*)	val="$define" ;;     
+*)      val="$undef"  ;;
+esac
+set usecjk
+eval $setvar
+
-- 
1.8.3.1