sub new
{
my ($pkg, $dxchan, $call, $confmode, $here, $pcversion) = @_;
my $self = $pkg->alloc($dxchan, $call, $confmode, $here);
sub new
{
my ($pkg, $dxchan, $call, $confmode, $here, $pcversion) = @_;
my $self = $pkg->alloc($dxchan, $call, $confmode, $here);