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/dir_entry.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/resize_fat/dir_entry.pm') 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; -- cgit v1.2.1