1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/network.pm b/perl-install/network.pm
index bce10e35a..7dd3f9349 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -137,3 +137,9 @@ sub getNet() {
     @l;
 }
 
+sub findIntf {
+    my ($intf, $device) = @_;
+    my ($l) = grep { $_->{DEVICE} eq $device } @$intf;
+    push @$intf, $l = { DEVICE => $device } unless $l;
+    $l;
+}