Change 18281 by [EMAIL PROTECTED] on 2002/12/11 09:59:31
Integrate from maint-5.8 #18156, #18218.
Affected files ...
... //depot/perl/lib/Unicode/UCD.t#16 integrate
... //depot/perl/lib/unicore/Category.pl#9 integrate
... //depot/perl/lib/unicore/SpecialCasing.txt#3 integrate
... //depot/perl/lib/unicore/UnicodeData.txt#3 integrate
... //depot/perl/lib/unicore/lib/C.pl#4 integrate
... //depot/perl/lib/unicore/lib/Cf.pl#4 integrate
... //depot/perl/lib/unicore/lib/Cntrl.pl#4 integrate
... //depot/perl/lib/unicore/lib/Graph.pl#4 integrate
... //depot/perl/lib/unicore/lib/P.pl#4 integrate
... //depot/perl/lib/unicore/lib/Pd.pl#4 integrate
... //depot/perl/lib/unicore/lib/Print.pl#4 integrate
... //depot/perl/lib/unicore/lib/Punct.pl#4 integrate
... //depot/perl/t/op/pack.t#75 integrate
Differences ...
==== //depot/perl/lib/Unicode/UCD.t#16 (text) ====
Index: perl/lib/Unicode/UCD.t
--- perl/lib/Unicode/UCD.t#15~18221~ Sun Dec 1 18:18:19 2002
+++ perl/lib/Unicode/UCD.t Wed Dec 11 01:59:31 2002
@@ -277,7 +277,7 @@
$casespec->{az}->{lower} eq '' &&
$casespec->{az}->{title} eq '0307' &&
$casespec->{az}->{upper} eq '0307' &&
- $casespec->{az}->{condition} eq 'az After_Soft_Dotted',
+ $casespec->{az}->{condition} eq 'az After_I',
'casespec 0x307');
# perl #7305 UnicodeCD::compexcl is weird
==== //depot/perl/lib/unicore/Category.pl#9 (text) ====
Index: perl/lib/unicore/Category.pl
--- perl/lib/unicore/Category.pl#8~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/Category.pl Wed Dec 11 01:59:31 2002
@@ -41,7 +41,7 @@
00AA Ll
00AB Pi
00AC Sm
-00AD Pd
+00AD Cf
00AE So
00AF Sk
00B0 So
==== //depot/perl/lib/unicore/SpecialCasing.txt#3 (text) ====
Index: perl/lib/unicore/SpecialCasing.txt
--- perl/lib/unicore/SpecialCasing.txt#2~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/SpecialCasing.txt Wed Dec 11 01:59:31 2002
@@ -231,14 +231,18 @@
# I and i-dotless; I-dot and i are case pairs in Turkish and Azeri
# The following rules handle those cases.
-0130; 0069; 0130; 0130; tr # LATIN CAPITAL LETTER I WITH DOT ABOVE
-0130; 0069; 0130; 0130; az # LATIN CAPITAL LETTER I WITH DOT ABOVE
+0130; 0069; 0130; 0130; tr; # LATIN CAPITAL LETTER I WITH DOT ABOVE
+0130; 0069; 0130; 0130; az; # LATIN CAPITAL LETTER I WITH DOT ABOVE
# When lowercasing, remove dot_above in the sequence I + dot_above, which will turn
into i.
# This matches the behavior of the canonically equivalent I-dot_above
-0307; ; 0307; 0307; tr After_Soft_Dotted; # COMBINING DOT ABOVE
-0307; ; 0307; 0307; az After_Soft_Dotted; # COMBINING DOT ABOVE
+0307; ; 0307; 0307; tr After_I; # COMBINING DOT ABOVE
+0307; ; 0307; 0307; az After_I; # COMBINING DOT ABOVE
+
+# After_I: The last preceding base character was an uppercase I, and
+# there is no intervening combining character class 230 (ABOVE).
+# (from Unicode 3.2 Errata 2002 October 31)
# When lowercasing, unless an I is before a dot_above, it turns into a dotless i.
==== //depot/perl/lib/unicore/UnicodeData.txt#3 (text) ====
Index: perl/lib/unicore/UnicodeData.txt
--- perl/lib/unicore/UnicodeData.txt#2~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/UnicodeData.txt Wed Dec 11 01:59:31 2002
@@ -171,7 +171,7 @@
00AA;FEMININE ORDINAL INDICATOR;Ll;0;L;<super> 0061;;;;N;;;;;
00AB;LEFT-POINTING DOUBLE ANGLE QUOTATION MARK;Pi;0;ON;;;;;Y;LEFT POINTING
GUILLEMET;*;;;
00AC;NOT SIGN;Sm;0;ON;;;;;N;;;;;
-00AD;SOFT HYPHEN;Pd;0;ON;;;;;N;;;;;
+00AD;SOFT HYPHEN;Cf;0;ON;;;;;N;;;;;
00AE;REGISTERED SIGN;So;0;ON;;;;;N;REGISTERED TRADE MARK SIGN;;;;
00AF;MACRON;Sk;0;ON;<compat> 0020 0304;;;;N;SPACING MACRON;;;;
00B0;DEGREE SIGN;So;0;ET;;;;;N;;;;;
==== //depot/perl/lib/unicore/lib/C.pl#4 (text) ====
Index: perl/lib/unicore/lib/C.pl
--- perl/lib/unicore/lib/C.pl#3~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/lib/C.pl Wed Dec 11 01:59:31 2002
@@ -12,6 +12,7 @@
return <<'END';
0000 001F
007F 009F
+00AD
0221
0234 024F
02AE 02AF
==== //depot/perl/lib/unicore/lib/Cf.pl#4 (text) ====
Index: perl/lib/unicore/lib/Cf.pl
--- perl/lib/unicore/lib/Cf.pl#3~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/lib/Cf.pl Wed Dec 11 01:59:31 2002
@@ -10,6 +10,7 @@
# Meaning: General Category 'Cf'
#
return <<'END';
+00AD
06DD
070F
180E
==== //depot/perl/lib/unicore/lib/Cntrl.pl#4 (text) ====
Index: perl/lib/unicore/lib/Cntrl.pl
--- perl/lib/unicore/lib/Cntrl.pl#3~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/lib/Cntrl.pl Wed Dec 11 01:59:31 2002
@@ -11,6 +11,7 @@
return <<'END';
0000 001F
007F 009F
+00AD
06DD
070F
180E
==== //depot/perl/lib/unicore/lib/Graph.pl#4 (text) ====
Index: perl/lib/unicore/lib/Graph.pl
--- perl/lib/unicore/lib/Graph.pl#3~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/lib/Graph.pl Wed Dec 11 01:59:31 2002
@@ -10,7 +10,8 @@
#
return <<'END';
0021 007E
-00A1 0220
+00A1 00AC
+00AE 0220
0222 0233
0250 02AD
02B0 02EE
==== //depot/perl/lib/unicore/lib/P.pl#4 (text) ====
Index: perl/lib/unicore/lib/P.pl
--- perl/lib/unicore/lib/P.pl#3~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/lib/P.pl Wed Dec 11 01:59:31 2002
@@ -21,7 +21,6 @@
007D
00A1
00AB
-00AD
00B7
00BB
00BF
==== //depot/perl/lib/unicore/lib/Pd.pl#4 (text) ====
Index: perl/lib/unicore/lib/Pd.pl
--- perl/lib/unicore/lib/Pd.pl#3~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/lib/Pd.pl Wed Dec 11 01:59:31 2002
@@ -11,7 +11,6 @@
#
return <<'END';
002D
-00AD
058A
1806
2010 2015
==== //depot/perl/lib/unicore/lib/Print.pl#4 (text) ====
Index: perl/lib/unicore/lib/Print.pl
--- perl/lib/unicore/lib/Print.pl#3~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/lib/Print.pl Wed Dec 11 01:59:31 2002
@@ -10,7 +10,8 @@
#
return <<'END';
0020 007E
-00A0 0220
+00A0 00AC
+00AE 0220
0222 0233
0250 02AD
02B0 02EE
==== //depot/perl/lib/unicore/lib/Punct.pl#4 (text) ====
Index: perl/lib/unicore/lib/Punct.pl
--- perl/lib/unicore/lib/Punct.pl#3~15552~ Wed Mar 27 12:52:19 2002
+++ perl/lib/unicore/lib/Punct.pl Wed Dec 11 01:59:31 2002
@@ -20,7 +20,6 @@
007D
00A1
00AB
-00AD
00B7
00BB
00BF
==== //depot/perl/t/op/pack.t#75 (xtext) ====
Index: perl/t/op/pack.t
--- perl/t/op/pack.t#74~18069~ Mon Oct 28 12:44:12 2002
+++ perl/t/op/pack.t Wed Dec 11 01:59:31 2002
@@ -6,7 +6,7 @@
require './test.pl';
}
-plan tests => 5825;
+plan tests => 5826;
use strict;
use warnings;
@@ -992,3 +992,6 @@
}
}
}
+
+ok(pack('u2', 'AA'), "[perl #8026]"); # used to hang and eat RAM in perl 5.7.2
+
End of Patch.
