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

(-)a/misc/translator/text-extract.pl (+4 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
#use strict;
2
#use strict;
3
#use warnings; FIXME - Bug 2505
3
#use warnings; FIXME - Bug 2505
4
5
use FindBin;
6
use lib $FindBin::Bin;
7
4
use HTML::Tree;
8
use HTML::Tree;
5
use Getopt::Std;
9
use Getopt::Std;
6
getopt("f:");
10
getopt("f:");
(-)a/misc/translator/text-extract2.pl (+3 lines)
Lines 14-19 Link Here
14
# --> This will be relatively major rework, and requires corresponding
14
# --> This will be relatively major rework, and requires corresponding
15
# rework in tmpl_process.pl
15
# rework in tmpl_process.pl
16
16
17
use FindBin;
18
use lib $FindBin::Bin;
19
17
use strict;
20
use strict;
18
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
19
use Getopt::Long;
22
use Getopt::Long;
(-)a/misc/translator/tmpl_process3.pl (+3 lines)
Lines 4-9 Link Here
4
# Parts copyright 2003-2004 Jerome Vizcaino
4
# Parts copyright 2003-2004 Jerome Vizcaino
5
# Parts copyright 2004 Ambrose Li
5
# Parts copyright 2004 Ambrose Li
6
6
7
use FindBin;
8
use lib $FindBin::Bin;
9
7
=head1 NAME
10
=head1 NAME
8
11
9
tmpl_process3.pl - Alternative version of tmpl_process.pl
12
tmpl_process3.pl - Alternative version of tmpl_process.pl
(-)a/misc/translator/translate (+3 lines)
Lines 19-24 Link Here
19
19
20
package Main;
20
package Main;
21
21
22
use FindBin;
23
use lib $FindBin::Bin;
24
22
use strict;
25
use strict;
23
use warnings;
26
use warnings;
24
27
(-)a/misc/translator/xgettext.pl (-1 / +3 lines)
Lines 6-11 xgettext.pl - xgettext(1)-like interface for .tt strings extraction Link Here
6
6
7
=cut
7
=cut
8
8
9
use FindBin;
10
use lib $FindBin::Bin;
11
9
use strict;
12
use strict;
10
use warnings;
13
use warnings;
11
use Getopt::Long;
14
use Getopt::Long;
12
- 

Return to bug 21480