diff --git a/perl/NGCP/Rtpclient/ICE.pm b/perl/NGCP/Rtpclient/ICE.pm index b8e85ba0d..7138cb662 100644 --- a/perl/NGCP/Rtpclient/ICE.pm +++ b/perl/NGCP/Rtpclient/ICE.pm @@ -566,7 +566,7 @@ sub stun_handler_binding_success { $self->debug("binding success from $address/$port\n"); # check xor address - $comp->{address} eq $hash->{address}->{address} or die; + $comp->{address} eq $hash->{address}->{address} or die("$comp->{address} $hash->{address}->{address}"); $comp->{port} == $hash->{address}->{port} or die; # we must have remote candidate and a pair diff --git a/perl/NGCP/Rtpengine/Test.pm b/perl/NGCP/Rtpengine/Test.pm index 25fc81d86..0129316d9 100644 --- a/perl/NGCP/Rtpengine/Test.pm +++ b/perl/NGCP/Rtpengine/Test.pm @@ -54,7 +54,8 @@ sub new { $self->{timers} = []; $self->{clients} = []; - $self->{control} = NGCP::Rtpengine->new($args{host} // 'localhost', $args{port} // 2223); + $self->{control} = NGCP::Rtpengine->new($args{host} // $ENV{RTPENGINE_HOST} // 'localhost', + $args{port} // $ENV{RTPENGINE_POR} // 2223); $self->{callid} = rand(); return $self;