summaryrefslogtreecommitdiffstats
path: root/perl-install/network/nfs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 21:22:16 +0000
commit868f8ef6acc35e7f402f082fb8398c22bbd012b5 (patch)
tree97085cdd1bd58872e282d0d5675bec7dd2c1af0f /perl-install/network/nfs.pm
parent987b89760dd7090ecf49bd225c634bcf7503d18c (diff)
downloaddrakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.gz
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.bz2
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.tar.xz
drakx-backup-do-not-use-868f8ef6acc35e7f402f082fb8398c22bbd012b5.zip
remove unused variables or rename them with an underscore (eg: $o becomes $_o)
Diffstat (limited to 'perl-install/network/nfs.pm')
-rw-r--r--perl-install/network/nfs.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm
index ab8bcfcd7..87f336e36 100644
--- a/perl-install/network/nfs.pm
+++ b/perl-install/network/nfs.pm
@@ -15,20 +15,20 @@ sub to_fstab_entry {
$class->to_fstab_entry_raw($e, 'nfs');
}
sub comment_to_string {
- my ($class, $comment) = @_;
+ my ($_class, $comment) = @_;
member($comment, qw(* 0.0.0.0/0.0.0.0 (everyone))) ? '' : $comment;
}
sub from_dev {
- my ($class, $dev) = @_;
+ my ($_class, $dev) = @_;
$dev =~ m|(.*?):(.*)|;
}
sub to_dev_raw {
- my ($class, $server, $name) = @_;
+ my ($_class, $server, $name) = @_;
$server . ':' . $name;
}
sub check {
- my ($class, $in) = @_;
+ my ($_class, $in) = @_;
$in->do_pkgs->ensure_is_installed('nfs-utils-clients', '/usr/sbin/showmount');
}
@@ -51,7 +51,7 @@ sub find_servers {
}
sub find_exports {
- my ($class, $server) = @_;
+ my ($_class, $server) = @_;
my @l;
run_program::raw({ timeout => 1 }, "showmount", '>', \@l, "-e", $server->{ip} || $server->{name});