--- deliantra/Deliantra-Client/DC/Protocol.pm 2007/04/10 11:12:53 1.100 +++ deliantra/Deliantra-Client/DC/Protocol.pm 2007/04/12 07:53:31 1.101 @@ -17,12 +17,12 @@ use base 'Crossfire::Protocol::Base'; sub new { - my $class = shift; + my ($class, %arg) = @_; - my $self = $class->SUPER::new (@_, + my $self = $class->SUPER::new (%arg, setup_req => { - extmap => 1, - smoothing => 1, + extmap => 1, + %{$arg{setup_req} || {}}, }, );