From cf143f5f5df9b4dbf6c9e191e7d5d96e420b5028 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 22 Feb 2008 11:49:57 +0000 Subject: add is_driver_listed helper --- lib/network/ndiswrapper.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib') diff --git a/lib/network/ndiswrapper.pm b/lib/network/ndiswrapper.pm index 3bf7bd3..efd2dc5 100644 --- a/lib/network/ndiswrapper.pm +++ b/lib/network/ndiswrapper.pm @@ -53,6 +53,8 @@ sub find_matching_devices { my $net_path = '/sys/class/net'; my @devices; + my $is_driver_listed = sub { my ($driver) = @_; any { member($driver, @{$_->{drivers}}) } @devices }; + require network::connection::ethernet; foreach my $interface (all($net_path)) { if (network::connection::ethernet::device_matches_interface($device, $interface)) { -- cgit v1.2.1