From ff36b07f44efa12a78809ee05bd6d0c25fc60495 Mon Sep 17 00:00:00 2001 From: Martin Mares Date: Sun, 14 Aug 2005 14:12:44 +0000 Subject: [PATCH] Fixed parsing of bin/config output (by TomHol in rel-3-6-1). --- lib/perl/Config.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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") { -- 2.39.5