metaconfig unit change for #15472.

p4raw-id: //depot/metaconfig@15473

diff --git a/U/perl/Extensions.U b/U/perl/Extensions.U
index 50f4b0d..b7fd845 100644 (file)
--- a/U/perl/Extensions.U
+++ b/U/perl/Extensions.U
@@ -98,9 +98,7 @@ eval $find_extensions
 # Special case:  Add in threads/shared since it is not picked up by the
 # recursive find above (and adding in general recursive finding breaks
 # SDBM_File/sdbm).  A.D.  10/25/2001.
-# Encode::XX need explicit mentions for the same reason.
-# --jhi 2002-03-04
-known_extensions="$known_extensions threads/shared Encode/CN Encode/JP Encode/KR Encode/TW"
+known_extensions="$known_extensions threads/shared"
 set X $nonxs_extensions
 shift
 nonxs_extensions="$*"
@@ -329,6 +327,16 @@ EOM
        : Exclude those that are not xs extensions
        case "$dflt" in
        '')     dflt=none;;
+        *)  case " $dflt " in
+            *" Encode "*) # Add the subextensions of Encode
+                cd "$rsrc/ext"
+                for xxx in `ls Encode/*/*.xs|awk -F/ '{print $2}'`; do
+                        dflt="$dflt Encode/$xxx"
+                done
+                cd "$tdir"
+                ;;
+            esac
+            ;;
        esac
        rp="What extensions do you wish to include?"
        . ./myread