135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

#393 avoid "modification of readonly variable" error in netmap

Browse Source
This commit is contained in:
Oliver Gorwits
2018-04-18 21:11:54 +01:00
parent 2caae8a642
commit f2ebd07c07
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/App/Netdisco/Web/Plugin/Device/Neighbors.pm
View File

@@ -6,6 +6,7 @@ use Dancer::Plugin::DBIC;
use Dancer::Plugin::Auth::Extensible;
use SNMP::Info ();
use Storable 'dclone';
use List::Util 'first';
use List::MoreUtils ();
use App::Netdisco::Util::Permission 'check_acl_only';
@@ -96,7 +97,8 @@ sub make_node_infostring {
}
sub make_link_infostring {
my $link = shift or return '';
my $linkarg = shift or return '';
my $link = dclone $link;
my $domain = quotemeta( setting('domain_suffix') || '' );
(my $left_name = lc($link->{left_dns} || $link->{left_name} || $link->{left_ip})) =~ s/$domain$//;