Changeset 13226

Timestamp:

2006-11-06T13:08:28+13:00 (17 years ago)

Author:

shaoqun

Message:

should allow element names with digits

File:

• trunk/gsdl/perllib/plugins/XMLPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -169 +169 @@
     while (defined (my $line = <XMLIN>)) {
         ## find the root element
-        if ($line =~ /<([\w:]+)[\s>]/){
+        if ($line =~ /<([\w\d:]+)[\s>]/){
         my $root = $1;
         if ($root !~ $doctype){