[Opensync-commits] r208 - wbxmlTestSuite/trunk

[<svn...@op...>]

Author: bellmich
Date: Wed Apr 22 13:53:37 2009
New Revision: 208
URL: http://libwbxml.opensync.org/changeset/208

Log:
normalized encoding

Modified:
   wbxmlTestSuite/trunk/normalize_xml.pl

Modified: wbxmlTestSuite/trunk/normalize_xml.pl
==============================================================================
--- wbxmlTestSuite/trunk/normalize_xml.pl	Wed Apr 22 13:52:40 2009	(r207)
+++ wbxmlTestSuite/trunk/normalize_xml.pl	Wed Apr 22 13:53:37 2009	(r208)
@@ -67,6 +67,11 @@
 	$line =~ s{\s*\?>\s*$}{ encoding="UTF-8"?>\n};
     }
     if ($state eq "ENC_OPEN" and $line =~ q{\?>\s*$}) {
+	## uppercase encoding
+	my $encoding = $line;
+	$encoding =~ s{.*\sencoding="([^"]*)".*}{$1};
+	$encoding = uc($encoding);
+	$line =~ s{\sencoding="[^"]*"}{ encoding="${encoding}"};
         $state = "WRITE";
     }