Lines 82-88
sub new {
Link Here
|
82 |
|
82 |
|
83 |
# Get all .pref file names |
83 |
# Get all .pref file names |
84 |
opendir my $fh, $self->{path_pref_en}; |
84 |
opendir my $fh, $self->{path_pref_en}; |
85 |
my @pref_files = grep { /.pref/ } readdir($fh); |
85 |
my @pref_files = grep { /.pref$/ } readdir($fh); |
86 |
close $fh; |
86 |
close $fh; |
87 |
$self->{pref_files} = \@pref_files; |
87 |
$self->{pref_files} = \@pref_files; |
88 |
|
88 |
|
89 |
- |
|
|