Skip to content
Snippets Groups Projects
Commit e92a4240 authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- fixed xsd location detection

parent d50fddbf
No related branches found
No related tags found
No related merge requests found
...@@ -279,6 +279,12 @@ sub validateRightsXML($$){ ...@@ -279,6 +279,12 @@ sub validateRightsXML($$){
my $rightsName = basename($rightsFilePath); my $rightsName = basename($rightsFilePath);
my $xsd_file = path(__FILE__)->parent->realpath->parent->child("xsd")->child($xsdName); # absolute path my $xsd_file = path(__FILE__)->parent->realpath->parent->child("xsd")->child($xsdName); # absolute path
if (! $xsd_file->is_file) {
use Data::Printer; p($xsd_file);
# retry, because assembled path for lib/
$xsd_file = path(__FILE__)->parent->parent->parent->realpath->parent->child("xsd")->child($xsdName);
use Data::Printer; p($xsd_file);
}
my $schema = XML::LibXML::Schema->new(location => $xsd_file); my $schema = XML::LibXML::Schema->new(location => $xsd_file);
my $parser = XML::LibXML->new; my $parser = XML::LibXML->new;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment