From 673cc1f09ca5b9bf9adfb01fada7d04c5663d069 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 23 Mar 2012 19:51:05 +0000
Subject: (find) rename it as _find()

(helps perl_checker)
---
 perl-install/standalone/fileshareset | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset
index b5dcbfb16..9d0cb11ee 100755
--- a/perl-install/standalone/fileshareset
+++ b/perl-install/standalone/fileshareset
@@ -180,7 +180,7 @@ sub check {
 ################################################################################
 package exports;
 
-sub find {
+sub _find {
     my ($exports, $mntpoint) = @_;
     foreach (@$exports) {
 	$_->{mntpoint} eq $mntpoint and return $_;
@@ -190,7 +190,7 @@ sub find {
 
 sub add {
     my ($exports, $mntpoint) = @_;
-    find($exports, $mntpoint) and die 'add';
+    _find($exports, $mntpoint) and die 'add';
     push @$exports, my $e = { mntpoint => $mntpoint };
     $e;
 }
-- 
cgit v1.2.1