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 "\nMissing '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 |
- |
|
|