View | Details | Raw Unified | Return to bug 38871
Collapse All | Expand All

(-)a/misc/translator/xgettext.pl (-17 lines)
Lines 98-119 sub remember { Link Here
98
98
99
###############################################################################
99
###############################################################################
100
100
101
sub string_list {
102
    my @t = keys %text;
103
104
    # The real gettext tools seems to sort case sensitively; I don't know why
105
    @t = sort { $a cmp $b } @t if $sort eq 's';
106
    @t = sort {
107
        my @aa = sort { $a->pathname cmp $b->pathname || $a->line_number <=> $b->line_number } @{ $text{$a} };
108
        my @bb = sort { $a->pathname cmp $b->pathname || $a->line_number <=> $b->line_number } @{ $text{$b} };
109
        $aa[0]->pathname cmp $bb[0]->pathname
110
            || $aa[0]->line_number <=> $bb[0]->line_number;
111
    } @t if $sort eq 'F';
112
    return @t;
113
}
114
115
###############################################################################
116
117
sub text_extract {
101
sub text_extract {
118
    my ($h) = @_;
102
    my ($h) = @_;
119
    for ( ; ; ) {
103
    for ( ; ; ) {
120
- 

Return to bug 38871