Fixed archive attachments
Change-Id: Ica7528612acfdedfe1f6516bd38548adfdb918de
diff --git a/script/korapxml2krill b/script/korapxml2krill
index b9e43ef..f840795 100644
--- a/script/korapxml2krill
+++ b/script/korapxml2krill
@@ -451,14 +451,14 @@
}
# Input is a file
- elsif (-f($input[0]) && (my $archive = KorAP::XML::Archive->new(shift @input))) {
+ elsif (-f($input[0]) && (my $archive = KorAP::XML::Archive->new($input[0]))) {
unless ($archive->test_unzip) {
print "Unzip is not installed or incompatible.\n\n";
exit(1);
};
# Add further annotation archived
- # $doc->attach($_) foreach @input;
+ $archive->attach($_) foreach @input;
print "Start processing ...\n";
$t = Benchmark->new;