summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/fileshareset
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-23 19:51:05 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-23 19:51:05 +0000
commit673cc1f09ca5b9bf9adfb01fada7d04c5663d069 (patch)
tree22e3432457a13fde606a8838bb858965f2bffdcd /perl-install/standalone/fileshareset
parent97c696278fda941541d1d6280db2c89b82eb1b7d (diff)
downloaddrakx-673cc1f09ca5b9bf9adfb01fada7d04c5663d069.tar
drakx-673cc1f09ca5b9bf9adfb01fada7d04c5663d069.tar.gz
drakx-673cc1f09ca5b9bf9adfb01fada7d04c5663d069.tar.bz2
drakx-673cc1f09ca5b9bf9adfb01fada7d04c5663d069.tar.xz
drakx-673cc1f09ca5b9bf9adfb01fada7d04c5663d069.zip
(find) rename it as _find()
(helps perl_checker)
Diffstat (limited to 'perl-install/standalone/fileshareset')
-rwxr-xr-xperl-install/standalone/fileshareset4
1 files changed, 2 insertions, 2 deletions
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;
}