From: Martin Mares <mj@ucw.cz>
Date: Sun, 14 Aug 2005 14:12:44 +0000 (+0000)
Subject: Fixed parsing of bin/config output (by TomHol in rel-3-6-1).
X-Git-Tag: holmes-import~756
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=ff36b07f44efa12a78809ee05bd6d0c25fc60495;p=libucw.git

Fixed parsing of bin/config output (by TomHol in rel-3-6-1).
---

diff --git a/lib/perl/Config.pm b/lib/perl/Config.pm
index 0d968da0..ff28f5df 100644
--- a/lib/perl/Config.pm
+++ b/lib/perl/Config.pm
@@ -31,7 +31,7 @@ sub Parse(@) {
 		my @l = `bin/config $defargs $section $optlist`;
 		$? && exit 1;
 		foreach my $o (@l) {
-			$o =~ /^CF_([^=]+)="(.*)"\n$/ or die "Cannot parse bin/config output: $_";
+			$o =~ /^CF_([^=]+)='(.*)'\n$/ or die "Cannot parse bin/config output: $_";
 			my $var = $$opts{$1};
 			my $val = $2;
 			if (ref $var eq "SCALAR") {