|
Lines 76-81
sub new {
Link Here
|
| 76 |
chomp $self->{xgettext}; |
76 |
chomp $self->{xgettext}; |
| 77 |
chomp $self->{sed}; |
77 |
chomp $self->{sed}; |
| 78 |
|
78 |
|
|
|
79 |
unless ($self->{xgettext}) { |
| 80 |
die "Missing 'xgettext' executable. Have you installed the gettext package?\n"; |
| 81 |
} |
| 82 |
|
| 79 |
# Get all .pref file names |
83 |
# Get all .pref file names |
| 80 |
opendir my $fh, $self->{path_pref_en}; |
84 |
opendir my $fh, $self->{path_pref_en}; |
| 81 |
my @pref_files = grep { /.pref/ } readdir($fh); |
85 |
my @pref_files = grep { /.pref/ } readdir($fh); |
| 82 |
- |
|
|