$call = $pkg->{call} unless $call;
return undef unless $call;
dbg('connll', "changing $pkg->{call} to $call") if exists $pkg->{call} && $call ne $pkg->{call};
$call = $pkg->{call} unless $call;
return undef unless $call;
dbg('connll', "changing $pkg->{call} to $call") if exists $pkg->{call} && $call ne $pkg->{call};