aboutsummaryrefslogtreecommitdiff
path: root/SBO-Lib
diff options
context:
space:
mode:
authorAndreas Guldstrand <andreas.guldstrand@gmail.com>2017-01-17 10:56:43 +0100
committerAndreas Guldstrand <andreas.guldstrand@gmail.com>2017-01-17 10:56:43 +0100
commitd9e245af966d87164bc0322bf1fc498e1d891b08 (patch)
treea7a43f76d6407d9493ec5dc2252365945a7cc06c /SBO-Lib
parent33720829aca03ba0abd3756ac447d25f71cc27e1 (diff)
downloadsbotools2-d9e245af966d87164bc0322bf1fc498e1d891b08.tar.xz
Fix parsing of .info files with trailing whitespace. This fixes #54.
Diffstat (limited to 'SBO-Lib')
-rw-r--r--SBO-Lib/Changes2
-rw-r--r--SBO-Lib/lib/SBO/Lib/Info.pm2
2 files changed, 3 insertions, 1 deletions
diff --git a/SBO-Lib/Changes b/SBO-Lib/Changes
index cf4c59e..2f1aeaa 100644
--- a/SBO-Lib/Changes
+++ b/SBO-Lib/Changes
@@ -1,4 +1,6 @@
2.2 - Unreleased
+ * Bugfix for parsing .info files with trailing whitespace after a value
+ (https://github.com/pink-mist/sbotools/issues/54)
2.1 - 2017-01-14
* Internals:
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;