diff options
Diffstat (limited to 'perl-install/network.pm')
| -rw-r--r-- | perl-install/network.pm | 6 |
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; +} |