From 7d181bfaafd262f95bcf13e1c358a043ee6c685c Mon Sep 17 00:00:00 2001
From: Stephen Hemminger <stephen.hemminger@vyatta.com>
Date: Tue, 28 Apr 2009 22:47:27 -0700
Subject: Fix bug in is_ip_configured
Bug 4311
Doing grep ($ip, @list) will return whole list since it evaluted
$ip as a expression and the result was defined.
---
scripts/vyatta-interfaces.pl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'scripts')
diff --git a/scripts/vyatta-interfaces.pl b/scripts/vyatta-interfaces.pl
index 25fefc9..c4e5c4e 100755
--- a/scripts/vyatta-interfaces.pl
+++ b/scripts/vyatta-interfaces.pl
@@ -90,8 +90,8 @@ exit 0;
sub is_ip_configured {
my ($intf, $ip) = @_;
- my @found = grep $ip, Vyatta::Misc::getIP($intf);
- return ($#found > 0);
+ my $found = grep { $_ eq $ip } Vyatta::Misc::getIP($intf);
+ return ($found > 0);
}
sub is_ip_duplicate {
--
cgit v1.2.3