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

fix @_ handling

Browse Source
This commit is contained in:
Oliver Gorwits
2017-05-30 13:07:19 +01:00
parent 271ffa80fd
commit 4ada3ee160
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/App/Netdisco/Util/Device.pm
View File

@@ -239,7 +239,7 @@ Returns false if the host is not permitted to arpnip the target device.
=cut =cut
sub is_arpnipable_now { sub is_arpnipable_now {
my $ip = shift; my ($ip) = @_;
my $device = get_device($ip) or return 0; my $device = get_device($ip) or return 0;
return _bail_msg("is_arpnipable: cannot arpnip an undiscovered device") return _bail_msg("is_arpnipable: cannot arpnip an undiscovered device")
@@ -290,7 +290,7 @@ Returns false if the host is not permitted to macsuck the target device.
=cut =cut
sub is_macsuckable_now { sub is_macsuckable_now {
my $ip = shift; my ($ip) = @_;
my $device = get_device($ip) or return 0; my $device = get_device($ip) or return 0;
return _bail_msg("is_macsuckable: cannot macsuck an undiscovered device") return _bail_msg("is_macsuckable: cannot macsuck an undiscovered device")