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 | a3f7b8ae77c8b0a285a01757ec47cc41b8b38476 (patch) | |
tree | 22e3432457a13fde606a8838bb858965f2bffdcd /perl-install | |
parent | f091038dcf6f91c1bb0cdc1ac0e7c744905bebd3 (diff) | |
download | drakx-backup-do-not-use-a3f7b8ae77c8b0a285a01757ec47cc41b8b38476.tar drakx-backup-do-not-use-a3f7b8ae77c8b0a285a01757ec47cc41b8b38476.tar.gz drakx-backup-do-not-use-a3f7b8ae77c8b0a285a01757ec47cc41b8b38476.tar.bz2 drakx-backup-do-not-use-a3f7b8ae77c8b0a285a01757ec47cc41b8b38476.tar.xz drakx-backup-do-not-use-a3f7b8ae77c8b0a285a01757ec47cc41b8b38476.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; } |