diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 06:45:35 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 06:45:35 +0000 |
| commit | a7591aa81000fbe0b2aa0d1f5ecbb319443c7a79 (patch) | |
| tree | 6c7e5e812242375a54cfe8e97160d695c53af2b5 /perl-install | |
| parent | 3707a2f6ad4f2b852dc30027c7e2c9c3cfc7ad75 (diff) | |
| download | drakx-a7591aa81000fbe0b2aa0d1f5ecbb319443c7a79.tar drakx-a7591aa81000fbe0b2aa0d1f5ecbb319443c7a79.tar.gz drakx-a7591aa81000fbe0b2aa0d1f5ecbb319443c7a79.tar.bz2 drakx-a7591aa81000fbe0b2aa0d1f5ecbb319443c7a79.tar.xz drakx-a7591aa81000fbe0b2aa0d1f5ecbb319443c7a79.zip | |
use find() (which was unused)
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/fileshareset | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset index 4e426caaa..f6fd20e40 100755 --- a/perl-install/standalone/fileshareset +++ b/perl-install/standalone/fileshareset @@ -169,9 +169,7 @@ sub find { sub add { my ($exports, $mntpoint) = @_; - foreach (@$exports) { - $_->{mntpoint} eq $mntpoint and die 'add'; - } + find($exports, $mntpoint) and die 'add'; push @$exports, my $e = { mntpoint => $mntpoint }; $e; } |