+
+ if ((scalar grep { $_ eq 'filename' } @entry_types) > 0) {
+ my $filename = basename($app, '.desktop');
+
+ # Don’t add “geany” if “Geany” is already present.
+ my @keys = map { lc } keys %choices;
+ next if (scalar grep { $_ eq lc($filename) } @keys) > 0;
+
+ $choices{$filename} = $app;
+ }