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

(-)a/misc/translator/xgettext.pl (-18 lines)
Lines 97-119 sub remember { Link Here
97
97
98
###############################################################################
98
###############################################################################
99
99
100
sub string_list {
101
    my @t = keys %text;
102
    # The real gettext tools seems to sort case sensitively; I don't know why
103
    @t = sort { $a cmp $b } @t if $sort eq 's';
104
    @t = sort {
105
	    my @aa = sort { $a->pathname cmp $b->pathname
106
		    || $a->line_number <=> $b->line_number } @{$text{$a}};
107
	    my @bb = sort { $a->pathname cmp $b->pathname
108
		    || $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 {
100
sub text_extract {
118
    my($h) = @_;
101
    my($h) = @_;
119
    for (;;) {
102
    for (;;) {
120
- 

Return to bug 38871