[css2] Fixed typo: $contents=$3 changed to $4.

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

Author: bert-github

css2/bin/Attic/addianch

@@ -1,7 +1,7 @@
 #!/usr/local/bin/perl
 # Add index anchors to source file _and_ generate index database
 # Arnaud Le Hors - lehors@w3.org
-# $Id: addianch,v 2.0 1998-02-02 18:52:27 bbos Exp $
+# $Id: addianch,v 2.1 1998-02-02 20:10:02 bbos Exp $
 
 use Getopt::Std;
 use lib 'bin';
@@ -48,7 +48,7 @@ while ($buf =~ /$defp/sio) {
     print OUTPUT $`;
     $buf = $';
     $elem = $&;
-    $content = $3;
+    $content = $4;
     $class = $2;
 
     # Check if there is a title attribute, otherwise use content
@@ -62,7 +62,7 @@ while ($buf =~ /$defp/sio) {
     @entries = split(/\|/o, cleanup($entry));
 
     # Create an anchor
-    if ($content =~ /<a\b[^>]*?name\s*=\s*[\"\']?([^\s\"\'>]*?)[\"\']?/sio) {
+    if ($content =~ /<a\s+[^>]*?name\s*=\s*[\"\']?([^\s\"\'>]*?)[\"\']?/sio) {
 	# Already a name in the content, re-use it
 	$anchor = $1;
 	print OUTPUT $elem;

css2/bin/addianch

@@ -1,7 +1,7 @@
 #!/usr/local/bin/perl
 # Add index anchors to source file _and_ generate index database
 # Arnaud Le Hors - lehors@w3.org
-# $Id: addianch,v 2.0 1998-02-02 18:52:27 bbos Exp $
+# $Id: addianch,v 2.1 1998-02-02 20:10:02 bbos Exp $
 
 use Getopt::Std;
 use lib 'bin';
@@ -48,7 +48,7 @@ while ($buf =~ /$defp/sio) {
     print OUTPUT $`;
     $buf = $';
     $elem = $&;
-    $content = $3;
+    $content = $4;
     $class = $2;
 
     # Check if there is a title attribute, otherwise use content
@@ -62,7 +62,7 @@ while ($buf =~ /$defp/sio) {
     @entries = split(/\|/o, cleanup($entry));
 
     # Create an anchor
-    if ($content =~ /<a\b[^>]*?name\s*=\s*[\"\']?([^\s\"\'>]*?)[\"\']?/sio) {
+    if ($content =~ /<a\s+[^>]*?name\s*=\s*[\"\']?([^\s\"\'>]*?)[\"\']?/sio) {
 	# Already a name in the content, re-use it
 	$anchor = $1;
 	print OUTPUT $elem;