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

1 files changed, 4 insertions, 4 deletions

diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index e3dfc9ce6..7adf01a3a 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -22,16 +22,16 @@ sub to_fstab_entry {
     $part;
 }
 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('samba-client', '/usr/bin/nmblookup');
 }
 
@@ -84,7 +84,7 @@ sub find_servers {
 }
 
 sub find_exports {
-    my ($class, $server) = @_;
+    my ($_class, $server) = @_;
     my @l;
 
     foreach (smbclient($server)) {