OrderCleanup —
Interchange 5.9.0:
Source: lib/Vend/Config.pm
Line 3802 (context shows lines 3802-3836)
sub parse_routine_array {
my($item,$settings) = @_;
return '' unless $settings;
my $c;
if(defined $C) {
$c = $C->{$item};
}
else {
no strict 'refs';
$c = ${"Global::$item"};
}
my @mac;
if($settings =~ /^[-\s\w,]+$/) {
@mac = grep /\S/, split /[\s,]+/, $settings;
}
else {
push @mac, $settings;
}
if(ref($c) eq 'ARRAY') {
push @$c, @mac;
}
elsif($c) {
$c = [$c, @mac];
}
else {
$c = scalar(@mac) > 1 ? [ @mac ] : $mac[0];
}
return $c;
}