Revision 1f0d7da2
Von Moritz Bunkus vor etwa 7 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 98 | 98 |
_control_error($form, $file_name, sprintf($locale->text("Missing 'description' field."))) ;
|
| 99 | 99 |
} |
| 100 | 100 |
|
| 101 |
delete @{$control}{qw(depth applied)};
|
|
| 102 |
|
|
| 103 |
my @unknown_keys = grep { !m{^ (?: depends | description | file | ignore | locales | may_fail | priority | tag ) $}x } keys %{ $control };
|
|
| 104 |
if (@unknown_keys) {
|
|
| 105 |
_control_error($form, $file_name, sprintf($locale->text("Unknown control fields: #1", join(' ', sort({ lc $a cmp lc $b } @unknown_keys)))));
|
|
| 106 |
} |
|
| 107 |
|
|
| 101 | 108 |
$control->{"priority"} *= 1;
|
| 102 | 109 |
$control->{"priority"} ||= 1000;
|
| 103 | 110 |
$control->{"file"} = $file;
|
| 104 | 111 |
|
| 105 |
delete @{$control}{qw(depth applied)};
|
|
| 106 |
|
|
| 107 | 112 |
$all_controls{$control->{"tag"}} = $control;
|
| 108 | 113 |
|
| 109 | 114 |
close(IN); |
Auch abrufbar als: Unified diff
Datenbankupgrades: unbekannte Control-Felder als Fehler werten