diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-12-12 00:03:15 +0200 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2016-12-12 00:03:15 +0200 |
| commit | fbed2700af82c3e01838dc512642b0c4ab18a7ac (patch) | |
| tree | 8cd254b32cc041d17ed598dc69158586028674e5 | |
| parent | 4ba9c52641bd83bd71526e540ba282e11829423c (diff) | |
| download | sbotools-fbed2700af82c3e01838dc512642b0c4ab18a7ac.tar.xz | |
SBO::Lib::Info: fix bug in parse_info with wrong key regex
| -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 c000c4e..729ed14 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-Z_]+)="([^"]+)"\n/g) { + while ($info_str =~ /\G([A-Za-z0-9_]+)="([^"]+)"\n/g) { my $key = $1; my @val = split " ", $2; $ret{$key} = \@val; |