W3C home > Mailing lists > Public > www-validator-cvs@w3.org > April 2007

validator/httpd/cgi-bin check,1.501,1.502

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Thu, 19 Apr 2007 07:28:46 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1HeR4Q-0001br-E5@lionel-hutz.w3.org>

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv6071/httpd/cgi-bin

Modified Files:
	check 
Log Message:
fixing http://www.w3.org/Bugs/Public/show_bug.cgi?id=4472
(outline for non xml-based languages) 
by making heading-selection regexp case insensitive.



Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.501
retrieving revision 1.502
diff -u -d -r1.501 -r1.502
--- check	18 Apr 2007 06:32:52 -0000	1.501
+++ check	19 Apr 2007 07:28:43 -0000	1.502
@@ -2241,7 +2241,7 @@
 sub W3C::Validator::SAXHandler::start_element
 {
   my ($self, $element) = @_;
-  if ($element->{Name} =~ /^h([1-6])$/) {
+  if ($element->{Name} =~ /^h([1-6])$/i) {
 
     $self->{_file}->{heading_outline} = $self->{_file}->{heading_outline} . "    " x int($1) . "[". $element->{Name}."] ";
     $self->{am_in_heading} = 1;
@@ -2322,7 +2322,7 @@
 sub W3C::Validator::SAXHandler::end_element
 {
   my ($self, $element) = @_;
-  if ($element->{Name} =~ /^h[1-6]$/) {
+  if ($element->{Name} =~ /^h[1-6]$/i) {
     $self->{_file}->{heading_outline} = $self->{_file}->{heading_outline} . "\n";
     $self->{am_in_heading} = 0;
   }
Received on Thursday, 19 April 2007 07:28:55 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:54:57 GMT