Changeset 13221

Timestamp:

2006-11-03T15:32:01+13:00 (17 years ago)

Author:

shaoqun

Message:

allow qualified document element names

File:

• trunk/gsdl/perllib/plugins/XMLPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -90 +90 @@
 sub get_doctype {
     my $self = shift(@_);
-    die "The inheriting class must implement this method";
+    die "$self The inheriting class must implement get_doctype method";
 }
 
@@ -169 +169 @@
     while (defined (my $line = <XMLIN>)) {
         ## find the root element
-        if ($line =~ /<(\w+)[\s>]/){
+        if ($line =~ /<([\w:]+)[\s>]/){
         my $root = $1;
         if ($root !~ $doctype){
@@ -268 +268 @@
     }
 
+    
     return 1; # processed the file
 }