Revision 7db5b95a
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 471 | 471 |
my ($self, $name, $msg) = @_; |
| 472 | 472 |
|
| 473 | 473 |
my $curr = $self; |
| 474 |
foreach my $part (split /\./, $name) {
|
|
| 474 |
foreach my $part (split m/\./, $name) {
|
|
| 475 | 475 |
if (!$curr->{$part} || ($curr->{$part} =~ /^\s*$/)) {
|
| 476 | 476 |
$self->error($msg); |
| 477 | 477 |
} |
Auch abrufbar als: Unified diff
Kleiner Syntax-Highlighting-Fix für Emacs.