This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert 3ffc8c70ad4af0e7b: remove BOOTSTRAP_CHARSET (khw's request)
[metaconfig.git] / U / ebcdic / ebcdic.U
index 465a1fd..3a36b2d 100644 (file)
@@ -8,25 +8,24 @@
 ?RCS:  Original author Jarkko Hietaniemi <jhi@iki.fi>
 ?RCS:  Merged into dist by Andy Dougherty  July 13, 1998
 ?RCS:
-?MAKE:ebcdic: Compile Setvar cat rm
+?MAKE:ebcdic: Compile Setvar cat rm_try run
 ?MAKE: -pick add $@ %<
 ?S:ebcdic:
 ?S:    This variable conditionally defines EBCDIC if this
-?S:    system uses EBCDIC encoding.  Among other things, this
-?S:    means that the character ranges are not contiguous.
-?S:    See trnl.U
+?S:    system uses EBCDIC encoding.
 ?S:.
 ?C:EBCDIC:
-?C:     This symbol, if defined, indicates that this system uses
+?C:    This symbol, if defined, indicates that this system uses
 ?C:    EBCDIC encoding.
 ?C:.
 ?H:#$ebcdic    EBCDIC          /**/
 ?H:.
+?F:!try
 ?LINT:set ebcdic
-?F:!tebcdic tebcdic.c
+: Determine if this is an EBCDIC system
 echo " "
 echo "Determining whether or not we are on an EBCDIC system..." >&4
-$cat >tebcdic.c <<'EOM'
+$cat >try.c <<'EOM'
 int main()
 {
   if ('M'==0xd4) return 0;
@@ -35,19 +34,19 @@ int main()
 EOM
 
 val=$undef
-set tebcdic
+set try
 if eval $compile_ok; then
-       if ./tebcdic; then
-               echo "You have EBCDIC." >&4
+       if $run ./try; then
+               echo "You seem to speak EBCDIC." >&4
                val="$define"
        else
-               echo "Nope, no EBCDIC, probably ASCII or some ISO Latin." >&4
+               echo "Nope, no EBCDIC, probably ASCII or some ISO Latin. Or UTF-8." >&4
        fi
 else
        echo "I'm unable to compile the test program." >&4
-       echo "I'll assume ASCII or some ISO Latin." >&4
+       echo "I'll assume ASCII or some ISO Latin. Or UTF8." >&4
 fi
-$rm -f tebcdic.c tebcdic
+$rm_try
 set ebcdic
 eval $setvar