diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-27 10:58:06 +0000 |
| commit | 69907ed1e861483d4063a1eec3662690681651a7 (patch) | |
| tree | 57be1d65269228481701e476bcf25c4a06ba6366 /perl-install/network.pm | |
| parent | 0a2ecf8b913dea899159f455cd5b9db7d39e6031 (diff) | |
| download | drakx-69907ed1e861483d4063a1eec3662690681651a7.tar drakx-69907ed1e861483d4063a1eec3662690681651a7.tar.gz drakx-69907ed1e861483d4063a1eec3662690681651a7.tar.bz2 drakx-69907ed1e861483d4063a1eec3662690681651a7.tar.xz drakx-69907ed1e861483d4063a1eec3662690681651a7.zip | |
no_comment
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; +} |