diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-23 19:51:05 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-23 19:51:05 +0000 |
commit | 673cc1f09ca5b9bf9adfb01fada7d04c5663d069 (patch) | |
tree | 22e3432457a13fde606a8838bb858965f2bffdcd /perl-install | |
parent | 97c696278fda941541d1d6280db2c89b82eb1b7d (diff) | |
download | drakx-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')
-rwxr-xr-x | perl-install/standalone/fileshareset | 4 |
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; } |