Revision f59ed16f
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 720 | 720 |
my ($self, $file, $additional_params) = @_; |
| 721 | 721 |
my $language; |
| 722 | 722 |
|
| 723 |
if (!defined(%main::myconfig) || !defined($main::myconfig{"countrycode"})) {
|
|
| 723 |
if (!%::myconfig || !$::myconfig{"countrycode"}) {
|
|
| 724 | 724 |
$language = $main::language; |
| 725 | 725 |
} else {
|
| 726 | 726 |
$language = $main::myconfig{"countrycode"};
|
Auch abrufbar als: Unified diff
2 defined entfernt. Der Gebruach ist deprecated, und in diesem Fall eh nicht notwendig.
perldoc sagt:
Use of defined on aggregates (hashes and arrays) is deprecated. It used to report whether memory for that aggregate has ever been allocated. This behavior may disappear in future versions of Perl. You should instead use a simple test for size: