Changeset 2008

Timestamp:

04/28/17 17:42:05 (7 years ago)

Author:

nanardon

Message:

Ignore empty line in object file

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

@@ -118 +118 @@
     while (my $line = <$handle>) {
         $line =~ /^#/ and next;
+        # Empty line are skipped (or space only)
+        $line =~ /^\s*$/ and next;
         chomp($line);
         my ($attr, $value) = $line =~ /^\s*(\S+):\s*(.*)\s*$/ or