diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2017-01-17 10:56:43 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2017-01-17 10:56:43 +0100 |
| commit | d9e245af966d87164bc0322bf1fc498e1d891b08 (patch) | |
| tree | a7a43f76d6407d9493ec5dc2252365945a7cc06c /SBO-Lib/lib/SBO/Lib/Info.pm | |
| parent | 33720829aca03ba0abd3756ac447d25f71cc27e1 (diff) | |
| download | sbotools2-d9e245af966d87164bc0322bf1fc498e1d891b08.tar.xz | |
Fix parsing of .info files with trailing whitespace. This fixes #54.
Diffstat (limited to 'SBO-Lib/lib/SBO/Lib/Info.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib/Info.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SBO-Lib/lib/SBO/Lib/Info.pm b/SBO-Lib/lib/SBO/Lib/Info.pm index 9d90ac3..1ff3216 100644 --- a/SBO-Lib/lib/SBO/Lib/Info.pm +++ b/SBO-Lib/lib/SBO/Lib/Info.pm @@ -216,7 +216,7 @@ sub parse_info { my $pos = 0; my %ret; - while ($info_str =~ /\G([A-Za-z0-9_]+)="([^"]*)"\n/g) { + while ($info_str =~ /\G([A-Za-z0-9_]+)="([^"]*)"\s*\n/g) { my $key = $1; my @val = split " ", $2; @val = '' unless @val; |