This commit is contained in:
Oliver Gorwits
2018-04-18 21:35:06 +01:00
parent b36a9e5699
commit 61211cfd20

View File

@@ -98,7 +98,7 @@ sub make_node_infostring {
sub make_link_infostring { sub make_link_infostring {
my $linkarg = shift or return ''; my $linkarg = shift or return '';
my $link = dclone $link; my $link = dclone $linkarg;
my $domain = quotemeta( setting('domain_suffix') || '' ); my $domain = quotemeta( setting('domain_suffix') || '' );
(my $left_name = lc($link->{left_dns} || $link->{left_name} || $link->{left_ip})) =~ s/$domain$//; (my $left_name = lc($link->{left_dns} || $link->{left_name} || $link->{left_ip})) =~ s/$domain$//;