Revision e032c24a
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Template.pm | ||
|---|---|---|
| 158 | 158 |
my ($var, @options) = split(/\s+/, $1); |
| 159 | 159 |
my $value = $form->{$var};
|
| 160 | 160 |
|
| 161 |
$main::lxdebug->message(0, "REPL var: $1"); |
|
| 162 |
|
|
| 163 | 161 |
for (my $i = 0; $i < scalar(@indices); $i++) {
|
| 164 | 162 |
last unless (ref($value) eq "ARRAY"); |
| 165 | 163 |
$value = $value->[$indices[$i]]; |
Auch abrufbar als: Unified diff
Debugcode entfernt.