Skip to content

Commit

Permalink
Bug fix.
Browse files Browse the repository at this point in the history
  • Loading branch information
dan-zeman committed Nov 22, 2024
1 parent 1ac9c74 commit a9f1227
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion lib/Lingua/Interset/FeatureStructure.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2300,7 +2300,7 @@ sub get_ufeatures
my @values = grep {defined($_) && $_ ne ''} $self->get_list($feature);
next unless(@values);
# Sort multivalues alphabetically and capitalize them.
@values = sort {lc($a) cmp lc($b)} (map {my $x = $_; if($feature eq 'ExtPos') {$x = uc($x)} else {$x =~ s/^(.)/\u$1/} $x} (@values));
@values = sort {lc($a) cmp lc($b)} (map {my $x = $_; if($feature eq 'extpos') {$x = uc($x)} else {$x =~ s/^(.)/\u$1/} $x} (@values));
# Join values using comma (unlike in get_joined(), with Universal Features we cannot use the vertical bar).
my $value = join(',', @values);
my $pair = "$uname=$value";
Expand Down

0 comments on commit a9f1227

Please sign in to comment.