From 868f8ef6acc35e7f402f082fb8398c22bbd012b5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 4 Dec 2002 21:22:16 +0000 Subject: remove unused variables or rename them with an underscore (eg: $o becomes $_o) --- perl-install/resize_fat/directory.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/resize_fat/directory.pm') 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); } -- cgit v1.2.1