X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fregcharclass.pl;h=2d900393e475216fbe7133e2476a83932b0b4348;hb=28b1daef84496f2ebce3fad4ac7861dd4dd92f38;hp=b90a65181c8c4bcbabeca2ffeae4e41685ff44e6;hpb=ab84f958e8eba0064169969835201436ec252edf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/Porting/regcharclass.pl b/Porting/regcharclass.pl
index b90a651..2d90039 100644
--- a/Porting/regcharclass.pl
+++ b/Porting/regcharclass.pl
@@ -133,7 +133,9 @@ sub __uni_latin1 {
 
         my $copy= $str;    # must copy string, FB_CROAK makes encode destructive
         $u= eval { Encode::encode( "utf8", $copy, Encode::FB_CROAK ) };
-        $u= [ unpack "U0C*", $u ] if $u;
+        # $u is utf8 but with the utf8 flag OFF
+        # therefore "C*" gets us the values of the bytes involved.
+        $u= [ unpack "C*", $u ] if defined $u;
     }
     return ( \@cp, $n, $l, $u );
 }
@@ -252,6 +254,8 @@ sub new {
         my ( $cp, $low, $latin1, $utf8 )= __uni_latin1( $str );
         my $UTF8= $low   || $utf8;
         my $LATIN1= $low || $latin1;
+        #die Dumper($txt,$cp,$low,$latin1,$utf8)
+        #    if $txt=~/NEL/ or $utf8 and @$utf8>3;
 
         @{ $self->{strs}{$str} }{qw( str txt low utf8 latin1 cp UTF8 LATIN1 )}=
           ( $str, $txt, $low, $utf8, $latin1, $cp, $UTF8, $LATIN1 );
@@ -641,8 +645,9 @@ if ( !caller ) {
  *
  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
  * This file is built by Porting/$zero.
- * (Generated at: @{[ scalar gmtime ]} GMT)
+ * 
  * Any changes made here will be lost!
+ *
  */
 
 HEADER