|
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 |
- |
|
|