Changeset 30600
- Timestamp:
- 2016-07-04T16:03:52+12:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/MetadataXMLPlugin.pm
r29817 r30600 181 181 return 1; # its a file for us 182 182 } 183 183 184 return 0; 184 185 } … … 194 195 while (defined (my $line = <XMLIN>)) { 195 196 ## find the root element 196 if ($line =~ /<([\w\d:]+)[\s >]/){197 if ($line =~ /<([\w\d:]+)[\s\/>]/){ 197 198 my $root = $1; 198 199 if ($root !~ $doctype){
Note:
See TracChangeset
for help on using the changeset viewer.