|
Lines 30-35
use File::Temp qw/tempdir/;
Link Here
|
| 30 |
use IPC::Open3; |
30 |
use IPC::Open3; |
| 31 |
use File::Spec; |
31 |
use File::Spec; |
| 32 |
use Symbol qw(gensym); |
32 |
use Symbol qw(gensym); |
|
|
33 |
use FindBin qw($Bin); |
| 34 |
use Cwd qw(abs_path); |
| 33 |
use utf8; |
35 |
use utf8; |
| 34 |
|
36 |
|
| 35 |
my $po_dir = tempdir(CLEANUP => 1); |
37 |
my $po_dir = tempdir(CLEANUP => 1); |
|
Lines 46-52
opendir ( $dh, $staff_dir ) or die "can't opendir $staff_dir: $!";
Link Here
|
| 46 |
my @staff_themes = grep { not /^\.|lib|js/ } readdir($dh); |
48 |
my @staff_themes = grep { not /^\.|lib|js/ } readdir($dh); |
| 47 |
close $dh; |
49 |
close $dh; |
| 48 |
|
50 |
|
| 49 |
chdir "misc/translator"; # for now, tmpl_process3.pl works only if run from its directory |
51 |
my $misc_translator_dir = abs_path("$Bin/../../misc/translator"); |
|
|
52 |
|
| 53 |
chdir $misc_translator_dir; # for now, tmpl_process3.pl works only if run from its directory |
| 50 |
|
54 |
|
| 51 |
# Check translatable of OPAC themes |
55 |
# Check translatable of OPAC themes |
| 52 |
for my $theme ( @opac_themes ) { |
56 |
for my $theme ( @opac_themes ) { |
|
Lines 63-69
sub test_string_extraction {
Link Here
|
| 63 |
my $template_dir = shift; |
67 |
my $template_dir = shift; |
| 64 |
my $po_dir = shift; |
68 |
my $po_dir = shift; |
| 65 |
|
69 |
|
| 66 |
my $command = "./tmpl_process3.pl create -i $template_dir -s $po_dir/$module.po -r --pedantic-warnings"; |
70 |
my $command = "PERL5LIB=\$PERL5LIB:$misc_translator_dir ./tmpl_process3.pl create -i $template_dir -s $po_dir/$module.po -r --pedantic-warnings"; |
| 67 |
|
71 |
|
| 68 |
open (NULL, ">", File::Spec->devnull); |
72 |
open (NULL, ">", File::Spec->devnull); |
| 69 |
print NULL "foo"; # avoid warning; |
73 |
print NULL "foo"; # avoid warning; |
| 70 |
- |
|
|