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/diskdrake/hd_gtk.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/diskdrake/hd_gtk.pm') diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 9ccfb3da4..1db5a6c6d 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -66,7 +66,7 @@ sub main { gtkadd($w->{window}, gtkpack_(Gtk2::VBox->new(0,7), - 0, (my $filesystems_button_box = filesystems_button_box()), + 0, filesystems_button_box(), 1, (my $notebook_widget = Gtk2::Notebook->new), 0, (my $per_kind_action_box = Gtk2::HBox->new(0,0)), 0, (my $general_action_box = Gtk2::HBox->new(0,0)), @@ -209,7 +209,7 @@ sub per_entry_info_box { } sub current_kind_changed { - my ($in, $kind) = @_; + my ($_in, $kind) = @_; $_->widget->destroy foreach $kind->{display_box}->children; @@ -233,7 +233,6 @@ sub current_entry_changed { sub create_automatic_notebooks { my ($notebook_widget) = @_; - my @l = fsedit::all_hds($all_hds); $_->{marked} = 0 foreach @notebook; my $may_add = sub { -- cgit v1.2.1