diff options
Diffstat (limited to 'SBO-Lib/lib/SBO/Lib/Info.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib/Info.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/SBO-Lib/lib/SBO/Lib/Info.pm b/SBO-Lib/lib/SBO/Lib/Info.pm index 729ed14..91a96e0 100644 --- a/SBO-Lib/lib/SBO/Lib/Info.pm +++ b/SBO-Lib/lib/SBO/Lib/Info.pm @@ -216,9 +216,10 @@ 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_]+)="([^"]*)"\n/g) { my $key = $1; my @val = split " ", $2; + @val = '' unless @val; $ret{$key} = \@val; $pos = pos($info_str); } |