From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 6 Aug 1999 18:52:57 +0000 (+0000)
Subject: Todo update.
X-Git-Tag: accepted/trunk/20130322.191538~34817^2~824
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=11eeea96a679f7b20489fe2e2eab4958ef273d62;p=platform%2Fupstream%2Fperl.git

Todo update.

p4raw-id: //depot/cfgperl@3931
---

diff --git a/Todo b/Todo
index b8d9012..2bc1557 100644
--- a/Todo
+++ b/Todo
@@ -1,5 +1,5 @@
 Check out always the latest perl5-porters discussions on these subjects
-before embaring on an implementation tour.
+before embarking on an implementation tour.
 
 Tie Modules
 	VecArray		Implement array using vec()
@@ -47,6 +47,9 @@ Would be nice to have
 	    an extension (Devel::MProf?) that would return the malloc
 	    stats in a nice Perl datastructure (also a simple interface
 	    to return just the grand total would be good).
+	Unicode: [=bar=], combining characters equivalence
+	    (U+4001 + U+0308 should be equal to U+00C4, in other words
+             A+diaereres should equal Ä), Unicode collation
 
 Possible pragmas
 	debugger
diff --git a/Todo-5.005 b/Todo-5.005
index b700603..fdcb974 100644
--- a/Todo-5.005
+++ b/Todo-5.005
@@ -28,12 +28,10 @@ Configure
     make configuring+building away from source directory work (VPATH et al)
     _r support
     cross-compilation configuring
-    mmap support
     POSIX 1003.1 1996 Edition support
 
 Locales
-    locales across packages
-    decimal separator (3,1415927 is Europeanese for an approximation of pi)
+    locales across packages?
 
 Regexen
    POSIX [=bar=] and [.zap.] would nice too but there's no API for them
diff --git a/lib/unicode/mktables.PL b/lib/unicode/mktables.PL
index 184e5ca..fcc8eac 100755
--- a/lib/unicode/mktables.PL
+++ b/lib/unicode/mktables.PL
@@ -1,7 +1,5 @@
 #!../../miniperl
 
-# Create the equivalence mappings.
-
 $UnicodeData = "UnicodeData-Latest.txt";
 
 # Note: we try to keep filenames unique within first 8 chars.  Using
@@ -304,6 +302,8 @@ END
     $out;
 }
 
+# Create the equivalence mappings.
+
 open(UNICODEDATA, $UnicodeData) || die "$0: $UnicodeData: $!\n";
 
 while (<UNICODEDATA>) {