From cf143f5f5df9b4dbf6c9e191e7d5d96e420b5028 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
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(+)

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