Changeset 379 for LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

08/21/09 12:43:26 (15 years ago)

Author:

nanardon

Message:

• fix parsing of empty line

File:

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

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

@@ -62 +62 @@
         $line =~ /^#/ and next;
         chomp($line);
-        my ($attr, $value) = $line =~ /^\s*(\S+):\s*(.*)\s*$/;
+        my ($attr, $value) = $line =~ /^\s*(\S+):\s*(.*)\s*$/ or next;
         if ($attributes{$attr}) {
             if (ref $attributes{$attr}) {