patch deprel if contains crazy character with 'dep' value (#135)

ufal · Apr 1, 2021 · 4527f2b · 4527f2b
1 parent ceb6abd
commit 4527f2b
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/udpipe2/udpipe2.pl b/src/udpipe2/udpipe2.pl
@@ -500,6 +500,10 @@ sub add_token {
       $self->logger("ERROR: root deprel inside tree (replacing with dep) $id");
       $opts{deprel} = 'dep';
     }
+    if($opts{deprel} =~ m/[^a-zA-Z_:]/) {
+      $self->logger("ERROR: invalid character in deprel '$opts{deprel}' (replacing with dep) $id");
+      $opts{deprel} = 'dep';
+    }
     push @{$self->{deprel}}, {src => $opts{i}, head => $opts{head}, deprel => $opts{deprel}};
 
   }