From 235df1925c71c1a26a6c7f04118b3d2fdb890d5c 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 | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/misc/translator/xgettext.pl b/misc/translator/xgettext.pl index 828bf50b801..a7e6fdd34c4 100755 --- a/misc/translator/xgettext.pl +++ b/misc/translator/xgettext.pl @@ -98,22 +98,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.34.1