commit 087d5dbaaad7f6a975ce6c1e8df8988e202fd7c6
author Akron <nils@diewald-online.de> Mon Oct 24 18:14:22 2016 +0200
committer Akron <nils@diewald-online.de> Mon Oct 24 19:06:31 2016 +0200
tree 9e54d3d73feac16bca12f2eebb50d0a5f74fd83a
parent 0e48977d02bcad3ad0c00663269b949a4dedd4cf

Fixed rootdir in meta parser

Change-Id: I51994658437d59889019f8b6153ca6e092cb9ed5

lib/KorAP/XML/Krill.pm

diff --git a/lib/KorAP/XML/Krill.pm b/lib/KorAP/XML/Krill.pm
index f94c07b..0c60234 100644
--- a/lib/KorAP/XML/Krill.pm
+++ b/lib/KorAP/XML/Krill.pm
@@ -13,7 +13,7 @@
 use Cache::FastMmap;
 use Mojo::DOM;
 use Data::Dumper;
-use File::Spec::Functions qw/catdir catfile catpath splitdir splitpath rel2abs/;
+use File::Spec::Functions qw/catdir catfile catpath splitdir splitpath rel2abs rootdir/;
 
 our $VERSION = '0.21';
 
@@ -108,7 +108,7 @@
     $self->log->warn($unable . ': No primary data found');
     return;
   };
-  
+
   # Associate primary data
   $self->{pd} = KorAP::XML::Document::Primary->new($pd);
 
@@ -119,7 +119,7 @@
   # and the text file for meta information
   foreach (0..2) {
     # Removed starting '/'
-    unshift @header, catfile(@path, 'header.xml');
+    unshift @header, catfile(rootdir(), @path, 'header.xml');
     pop @path;
   };