From 0487319ff312749d99c9ac07a8d164ef76615dee Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 9 Jan 2025 22:38:50 +0100 Subject: [PATCH] Bug 38871: Remove sub string_list from misc/translator/xgettext.pl It is never used % git grep string_list should not return anything Signed-off-by: Thibault Keromnes Signed-off-by: Tomas Cohen Arazi --- misc/translator/xgettext.pl | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/misc/translator/xgettext.pl b/misc/translator/xgettext.pl index bcf66019672..1891c1bb233 100755 --- a/misc/translator/xgettext.pl +++ b/misc/translator/xgettext.pl @@ -97,23 +97,6 @@ sub remember { ############################################################################### -sub string_list { - my @t = keys %text; - # The real gettext tools seems to sort case sensitively; I don't know why - @t = sort { $a cmp $b } @t if $sort eq 's'; - @t = sort { - my @aa = sort { $a->pathname cmp $b->pathname - || $a->line_number <=> $b->line_number } @{$text{$a}}; - my @bb = sort { $a->pathname cmp $b->pathname - || $a->line_number <=> $b->line_number } @{$text{$b}}; - $aa[0]->pathname cmp $bb[0]->pathname - || $aa[0]->line_number <=> $bb[0]->line_number; - } @t if $sort eq 'F'; - return @t; -} - - ############################################################################### - sub text_extract { my($h) = @_; for (;;) { -- 2.48.1