X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=d155a0d7f13d9c775b8f54e8b1137ef40bc8bd54;hb=5df2b57a097f66f6cecba0aa577c7aaba3422ab6;hp=0aa7fb69cb92785acd061699cdbe9b06500af282;hpb=eff7e11288b8365a3f03c78af19470ed4032ec9d;p=kivitendo-erp.git

diff --git a/SL/Form.pm b/SL/Form.pm
index 0aa7fb69c..d155a0d7f 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -471,7 +471,7 @@ sub isblank {
   my ($self, $name, $msg) = @_;
 
   my $curr = $self;
-  foreach my $part (split /\./, $name) {
+  foreach my $part (split m/\./, $name) {
     if (!$curr->{$part} || ($curr->{$part} =~ /^\s*$/)) {
       $self->error($msg);
     }