]> mj.ucw.cz Git - libucw.git/commitdiff
Fixed parsing of bin/config output (by TomHol in rel-3-6-1).
authorMartin Mares <mj@ucw.cz>
Sun, 14 Aug 2005 14:12:44 +0000 (14:12 +0000)
committerMartin Mares <mj@ucw.cz>
Sun, 14 Aug 2005 14:12:44 +0000 (14:12 +0000)
lib/perl/Config.pm

index 0d968da01aef3482511d8c331c5e24fccd83092a..ff28f5dfb28f2dcb7b001bcbf2aa6cedaeb23416 100644 (file)
@@ -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") {