Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Projets publics
Ravada-Mirror
Commits
4330c490
Unverified
Commit
4330c490
authored
Oct 18, 2021
by
Fernando Verdugo
Committed by
GitHub
Oct 18, 2021
Browse files
fix(backend): eval error with { (#1616)
fix(backend): eval error on dockers issue #1615
parent
c85686c6
Changes
1
Hide whitespace changes
Inline
Side-by-side
lib/Ravada/Domain/KVM.pm
View file @
4330c490
...
...
@@ -1640,13 +1640,13 @@ sub _ip_agent($self) {
}
}
sub
_ip_arp
($self) {
my
@sys_virt_version
=
split
('
\.
',
$
Sys::Virt::
VERSION
);
return
undef
if
(
$sys_virt_version
[
0
]
<
5
);
my
@ip
;
eval
{
@ip
=
$self
->
domain
->
get_interface_addresses
(
Sys::Virt::Domain::
INTERFACE_ADDRESSES_SRC_ARP
);
}
;
return
@ip
;
}
#
sub _ip_arp($self) {
#
my @sys_virt_version = split('\.', $Sys::Virt::VERSION);
#
return undef if ($sys_virt_version[0] < 5);
#
my @ip;
#
eval
"
@ip = $self->domain->get_interface_addresses(Sys::Virt::Domain::INTERFACE_ADDRESSES_SRC_ARP);
"
;
#
return @ip;
#
}
sub
ip
($self) {
my
@ip
;
...
...
@@ -1654,7 +1654,7 @@ sub ip($self) {
warn
$@
if
$@
;
return
$ip
[
0
]
->
{
addrs
}
->
[
0
]
->
{
addr
}
if
$ip
[
0
];
@ip
=
$self
->
_ip_arp
();
#
@ip = $self->_ip_arp();
return
$ip
[
0
]
->
{
addrs
}
->
[
0
]
->
{
addr
}
if
$ip
[
0
];
return
$self
->
_ip_agent
();
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment