From a9f122712632ff35ddea656be30ee490471ef493 Mon Sep 17 00:00:00 2001
From: Dan Zeman <zeman@ufal.mff.cuni.cz>
Date: Fri, 22 Nov 2024 12:56:45 +0100
Subject: [PATCH] Bug fix.

---
 lib/Lingua/Interset/FeatureStructure.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Lingua/Interset/FeatureStructure.pm b/lib/Lingua/Interset/FeatureStructure.pm
index b8748a3..687622c 100644
--- a/lib/Lingua/Interset/FeatureStructure.pm
+++ b/lib/Lingua/Interset/FeatureStructure.pm
@@ -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";