summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 06:45:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 06:45:35 +0000
commita7591aa81000fbe0b2aa0d1f5ecbb319443c7a79 (patch)
tree6c7e5e812242375a54cfe8e97160d695c53af2b5 /perl-install
parent3707a2f6ad4f2b852dc30027c7e2c9c3cfc7ad75 (diff)
downloaddrakx-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-xperl-install/standalone/fileshareset4
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;
}