Change 31636 by [EMAIL PROTECTED] on 2007/07/19 12:09:32
Change Porting/regcharclass.pl so it doesn't depend on unpack 'U0C*'
Includes an updated regcharclass.h without datestamp in it so when it
is trivially rebuilt it doesnt change in terms of contents.
Affected files ...
... //depot/perl/Porting/regcharclass.pl#7 edit
... //depot/perl/regcharclass.h#7 edit
Differences ...
==== //depot/perl/Porting/regcharclass.pl#7 (text) ====
Index: perl/Porting/regcharclass.pl
--- perl/Porting/regcharclass.pl#6~31606~ 2007-07-13 01:36:23.000000000
-0700
+++ perl/Porting/regcharclass.pl 2007-07-19 05:09:32.000000000 -0700
@@ -133,7 +133,9 @@
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 ( [EMAIL PROTECTED], $n, $l, $u );
}
@@ -252,6 +254,8 @@
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 @@
*
* !!!!!!! 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
==== //depot/perl/regcharclass.h#7 (text) ====
Index: perl/regcharclass.h
--- perl/regcharclass.h#6~31102~ 2007-04-27 07:19:15.000000000 -0700
+++ perl/regcharclass.h 2007-07-19 05:09:32.000000000 -0700
@@ -9,8 +9,9 @@
*
* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
* This file is built by Porting/regcharclass.pl.
- * (Generated at: Fri Apr 27 12:34:16 2007 GMT)
+ *
* Any changes made here will be lost!
+ *
*/
/*
End of Patch.
