my $quote_type = "'";
my $marker = "$key=";
- # Check for the common case, ' delimeted
+ # Check for the common case, ' delimited
my $start = index($Config_SH, "\n$marker$quote_type");
# If that failed, check for " delimited
if ($start == -1) {
sub config_re {
my $re = shift;
- return map { chomp; $_ } grep /^$re=/, split /^/, $config_sh;
+ return map { chomp; $_ } grep /^$re=/, split /^/, $Config_SH;
}
sub config_vars {