Changeset 2008 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 04/28/17 17:42:05 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm
r1991 r2008 118 118 while (my $line = <$handle>) { 119 119 $line =~ /^#/ and next; 120 # Empty line are skipped (or space only) 121 $line =~ /^\s*$/ and next; 120 122 chomp($line); 121 123 my ($attr, $value) = $line =~ /^\s*(\S+):\s*(.*)\s*$/ or
Note: See TracChangeset
for help on using the changeset viewer.