From 0012037a32db3cc11826a920de5accd460ebd956 Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Wed, 8 Nov 2017 17:24:37 +0100 Subject: [PATCH] TT#24097 Allow perl builtin homonyms for method names These are methods and do not really conflict with the perl builtins with the same name outside of this package. Change-Id: If7405ebc6a9e862433e576743ae6c32d7d6ec51e --- perl/NGCP/Rtpclient/DTLS.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/perl/NGCP/Rtpclient/DTLS.pm b/perl/NGCP/Rtpclient/DTLS.pm index a438e7ff8..9dcb8d222 100644 --- a/perl/NGCP/Rtpclient/DTLS.pm +++ b/perl/NGCP/Rtpclient/DTLS.pm @@ -67,7 +67,7 @@ sub set_cert { } # XXX unify these two -sub connect { +sub connect { ## no critic: Subroutines::ProhibitBuiltinHomonyms my ($self) = @_; $self->{_connected} and return; @@ -95,7 +95,7 @@ sub connect { $self->{_mux}->add($near); $self->{_mux}->add($openssl_out); } -sub accept { +sub accept { ## no critic: Subroutines::ProhibitBuiltinHomonyms my ($self) = @_; $self->{_connected} and return; @@ -303,13 +303,13 @@ sub encode { my ($self, @rest) = @_; return $self->[0]->encode(@rest); } -sub connect { +sub connect { ## no critic: Subroutines::ProhibitBuiltinHomonyms my ($self, @rest) = @_; for my $cl (@$self) { $cl->accept(@rest); } } -sub accept { +sub accept { ## no critic: Subroutines::ProhibitBuiltinHomonyms my ($self, @rest) = @_; for my $cl (@$self) { $cl->accept(@rest);