From dbb1ce045e611813e893a7bbc06565ef85fcbeeb Mon Sep 17 00:00:00 2001 From: adefaria Date: Thu, 15 May 2014 19:37:19 -0700 Subject: [PATCH] Fixed bug where getConfig did not handle names with "-" in them. Also made : and = separators. --- lib/GetConfig.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lib/GetConfig.pm b/lib/GetConfig.pm index 9ccf965..170ad3a 100644 --- a/lib/GetConfig.pm +++ b/lib/GetConfig.pm @@ -48,11 +48,12 @@ yields =head1 DESCRIPTION -This module is a simple interface to reading config files. Config file -format is roughly like .XDefaults format - : pairs. A -hash of the name/value pairs are returned. Variable interpolation is -supported such that env(1) variables will be interpolated as well as -previously defined values. Thus: +This module is a simple interface to reading config files. Config file format is +roughly like .XDefaults format - : pairs. Note that you can use +either ':' or '=' as a separator between the name and value. A hash of the +name/value pairs are returned. Variable interpolation is supported such that +env(1) variables will be interpolated as well as previously defined values. +Thus: temp_files: tmp temp_dir: $HOME/$temp_files @@ -124,7 +125,7 @@ sub _processFile ($%) { next if /^\s*[\#|\!]/; # Skip comments - if (/\s*(\w*)\s*:\s*(.*)\s*$/) { + if (/\s*(.*?)\s*[:=]\s*(.*)\s*/) { my $key = $1; my $value = $2; -- 2.17.1