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

3 files changed, 3 insertions, 3 deletions

diff --git a/perl-install/resize_fat/dir_entry.pm b/perl-install/resize_fat/dir_entry.pm
index 424860b86..9b990be2e 100644
--- a/perl-install/resize_fat/dir_entry.pm
+++ b/perl-install/resize_fat/dir_entry.pm
@@ -61,7 +61,7 @@ sub is_special_entry($) {
 #- return true if entry has been modified
 #- curr_dir_name is added to contains current directory name, "" for root.
 sub remap {
-    my ($curr_dir_name, $entry) = @_;
+    my ($_curr_dir_name, $entry) = @_;
 
     is_special_entry($entry) and return;
 
diff --git a/perl-install/resize_fat/directory.pm b/perl-install/resize_fat/directory.pm
index 1f2b1ede6..55bae687f 100644
--- a/perl-install/resize_fat/directory.pm
+++ b/perl-install/resize_fat/directory.pm
@@ -74,6 +74,6 @@ sub traverse_all($$) {
 #- function used by construct_dir_tree to translate the `cluster' fields in each
 #- directory entry
 sub remap($$) {
-    my ($fs, $directory) = @_;
+    my ($_fs, $directory) = @_;
     traverse($directory, "", \&resize_fat::dir_entry::remap);
 }
diff --git a/perl-install/resize_fat/io.pm b/perl-install/resize_fat/io.pm
index 054fb0858..7ece56533 100644
--- a/perl-install/resize_fat/io.pm
+++ b/perl-install/resize_fat/io.pm
@@ -17,7 +17,7 @@ sub read($$$) {
     $buf;
 }
 sub write($$$$) {
-    my ($fs, $pos, $size, $buf) = @_;
+    my ($fs, $pos, $_size, $buf) = @_;
     sysseek $fs->{fd}, $pos, 0 or die "seeking to byte #$pos failed on device $fs->{fs_name}";
     syswrite $fs->{fd}, $buf or die "writing at byte #$pos failed on device $fs->{fs_name}";
 }