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 {
}
my $fast_config = join '', map { " $_,\n" }
- values (%v_fast), 'byteorder => $value' ;
+ sort values (%v_fast), 'byteorder => $value' ;
print CONFIG sprintf <<'ENDOFTIE', $byteorder_code, $fast_config;