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

1 files changed, 1 insertions, 1 deletions

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