This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Mark tests (and one module) having explicit Latin-1
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 12 Aug 2001 18:43:50 +0000 (18:43 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 12 Aug 2001 18:43:50 +0000 (18:43 +0000)
(and one file having explicit UTF-8) with an explicit
'no utf8' (and one explicit 'use utf8').

NOTE: t/op/pat.t #64 fails mysteriously under 'use utf8'.

p4raw-id: //depot/perl@11648

lib/CGI/t/html.t
lib/Locale/Codes/t/languages.t
lib/Locale/Language.pm
lib/charnames.t
lib/locale.t
t/lib/locale/latin1
t/lib/locale/utf8
t/op/pat.t

index 93e5dac..643bbde 100755 (executable)
@@ -15,6 +15,8 @@ use CGI (':standard','-no_debug','*h3','start_table');
 $loaded = 1;
 print "ok 1\n";
 
+no utf8; # we contain Latin-1
+
 ######################### End of black magic.
 
 my $CRLF = "\015\012";
index 9facd35..c643f3a 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
 
 use Locale::Language;
 
-no utf8; # so that the naked 8-bit characters won't gripe under use utf8
+no utf8; # we contain Latin-1
 
 #-----------------------------------------------------------------------
 # This is an array of tests. Each test is eval'd as an expression.
index 391cffa..9e0cf19 100644 (file)
@@ -247,13 +247,15 @@ modify it under the same terms as Perl itself.
 # initialisation code - stuff the DATA into the CODES hash
 #=======================================================================
 {
+    no utf8; # __DATA__ contains Latin-1
+
     my $code;
     my $language;
 
 
     while (<DATA>)
     {
-        next unless /\S/;
+       next unless /\S/;
         chop;
         ($code, $language) = split(/:/, $_, 2);
         $CODES{$code} = $language;
index 124dad0..cc38221 100644 (file)
@@ -117,7 +117,7 @@ sub to_bytes {
 {
   # 20001114.001       
 
-  no utf8; # so that the naked 8-bit character won't gripe under use utf8
+  no utf8; # naked Latin-1
 
   if (ord("Ä") == 0xc4) { # Try to do this only on Latin-1.
       use charnames ':full';
index b18ff41..3174fe1 100644 (file)
@@ -719,19 +719,28 @@ foreach $Locale (@Locale) {
             $utf8skip{117}++;
        } else {
            use locale;
-           use locale;
-           no utf8; # so that the native 8-bit characters work
+           no utf8;
 
            my @f = ();
            foreach my $x (keys %UPPER) {
                my $y = lc $x;
                next unless uc $y eq $x;
-               push @f, $x unless $x =~ /$y/i && $y =~ /$x/i;
+               print "# UPPER $x lc $y ",
+                       $x =~ /$y/i ? 1 : 0, " ",
+                       $y =~ /$x/i ? 1 : 0, "\n" if 0;
+               # With utf8 both will fail since the locale concept
+               # of upper/lower does not work well in Unicode.
+               push @f, $x unless $x =~ /$y/i == $y =~ /$x/i;
            }
            foreach my $x (keys %lower) {
                my $y = uc $x;
                next unless lc $y eq $x;
-               push @f, $x unless $x =~ /$y/i && $y =~ /$x/i;
+               print "# lower $x uc $y ",
+                       $x =~ /$y/i ? 1 : 0, " ",
+                       $y =~ /$x/i ? 1 : 0, "\n" if 0;
+               # With utf8 both will fail since the locale concept
+               # of upper/lower does not work well in Unicode.
+               push @f, $x unless $x =~ /$y/i == $y =~ /$x/i;
            }
            tryneoalpha($Locale, 117, @f == 0);
            if (@f) {
index f40f732..8499ca4 100644 (file)
@@ -1,3 +1,4 @@
+no utf8; # naked Latin-1
 $locales .= <<EOF;
 Català Catalan:ca:es:1 15
 Français French:fr:be ca ch fr lu:1 15
index fbbe94f..69bc505 100644 (file)
@@ -1,3 +1,4 @@
+use utf8;
 $locales .= <<EOF;
 Català Catalan:ca:es:1 15
 Français French:fr:be ca ch fr lu:1 15
index bed2f37..a4cd324 100755 (executable)
@@ -237,7 +237,7 @@ print "ok 63\n";
 $out = 1;
 'abc' =~ m'a(?{ $out = 3 })c';
 print "not " if $out != 1;
-print "ok 64\n";
+print "ok 64\n"; # this fails under use utf8 for no apparent reason --jhi
 
 $_ = 'foobar1 bar2 foobar3 barfoobar5 foobar6';
 @out = /(?<!foo)bar./g;