Revision ebacee0a
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Locale.pm | ||
|---|---|---|
| 47 | 47 |
my ($type, $country, $NLS_file) = @_; |
| 48 | 48 |
my $self = {};
|
| 49 | 49 |
|
| 50 |
$country =~ s|.*/||; |
|
| 51 |
$country =~ s|\.||g; |
|
| 52 |
$NLS_file =~ s|.*/||; |
|
| 53 |
|
|
| 50 | 54 |
if ($country && -d "locale/$country") {
|
| 51 | 55 |
local *IN; |
| 52 | 56 |
$self->{countrycode} = $country;
|
| 53 |
if (open(IN, "locale/$country/$NLS_file")) {
|
|
| 57 |
if (open(IN, "<", "locale/$country/$NLS_file")) {
|
|
| 54 | 58 |
my $code = join("", <IN>);
|
| 55 | 59 |
eval($code); |
| 56 | 60 |
close(IN); |
Auch abrufbar als: Unified diff
Argumente von open() definitiv auf den richtigen Pfad beschränken.