From a7591aa81000fbe0b2aa0d1f5ecbb319443c7a79 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 06:45:35 +0000
Subject: use find() (which was unused)

---
 perl-install/standalone/fileshareset | 4 +---
 1 file changed, 1 insertion(+), 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;
 }
-- 
cgit v1.2.1