Fixed root prefix in meta parser
Change-Id: I50fe15fdfee2c47b4c49d99741aa74f35770f115
diff --git a/lib/KorAP/XML/Krill.pm b/lib/KorAP/XML/Krill.pm
index 6f3731d..6d42dbc 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 rootdir/;
+use File::Spec::Functions qw/catdir catfile catpath splitdir splitpath rel2abs/;
our $VERSION = '0.21';
@@ -119,8 +119,9 @@
# and the text file for meta information
foreach (0..2) {
# Removed starting '/'
-
- unshift @header, catfile(rootdir(), @path, 'header.xml');
+ my $header = ($^O =~ /^mswin/i ? '' : '/');
+ $header .= catfile(@path, 'header.xml');
+ unshift @header, $header;
pop @path;
};