diff options
| -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; } |