[css2] Bug: lowercase & uppercase were considered different

--HG--
extra : convert_revision : svn%3A73dc7c4b-06e6-40f3-b4f7-9ed1dbc14bfc/trunk%401425

Author: bert-github

css2/bin/Attic/mkidx

@@ -30,7 +30,7 @@ open(OUTPUT, ">$output") || die "$PROG: cannot create file $output\n";
 
 # Write it out
 @prev = ('', '', '', '', '', '');
-$prevletter = ' ';
+$prevletter = '`';
 #print OUTPUT "<ul class=\"index\">";
 $lvl = 0;
 $seqno = 1;			# Number within an entry
@@ -56,9 +56,9 @@ foreach $e (@sorted) {
 	$letter = $subs[0];
 	$letter =~ s/\&[a-z\#0-9]+;?//sio;
 	$letter =~ s/^[^a-z0-9\@:]+//sio;
-	$letter = substr($letter, 0, 1);
+	$letter = lc(substr($letter, 0, 1));
 	if ($letter && $letter ne $prevletter) {
-	    if ($prevletter ne ' ') {	    
+	    if ($prevletter ne '`') {	    
 		print OUTPUT "\n</ul>";
 	    }
 	    print OUTPUT "\n<p>";

css2/bin/mkidx

@@ -30,7 +30,7 @@ open(OUTPUT, ">$output") || die "$PROG: cannot create file $output\n";
 
 # Write it out
 @prev = ('', '', '', '', '', '');
-$prevletter = ' ';
+$prevletter = '`';
 #print OUTPUT "<ul class=\"index\">";
 $lvl = 0;
 $seqno = 1;			# Number within an entry
@@ -56,9 +56,9 @@ foreach $e (@sorted) {
 	$letter = $subs[0];
 	$letter =~ s/\&[a-z\#0-9]+;?//sio;
 	$letter =~ s/^[^a-z0-9\@:]+//sio;
-	$letter = substr($letter, 0, 1);
+	$letter = lc(substr($letter, 0, 1));
 	if ($letter && $letter ne $prevletter) {
-	    if ($prevletter ne ' ') {	    
+	    if ($prevletter ne '`') {	    
 		print OUTPUT "\n</ul>";
 	    }
 	    print OUTPUT "\n<p>";