remove unused variables or rename them with an underscore (eg: $o becomes $_o)

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});