From fbed2700af82c3e01838dc512642b0c4ab18a7ac Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Mon, 12 Dec 2016 00:03:15 +0200
Subject: SBO::Lib::Info: fix bug in parse_info with wrong key regex

---
 SBO-Lib/lib/SBO/Lib/Info.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'SBO-Lib/lib/SBO/Lib/Info.pm')

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;
-- 
cgit v1.2.3