From 841fa6677c7ca88bed65378dd7135969156f3a05 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 26 Nov 2002 20:14:19 +0000 Subject: fix undeclared variable --- perl-install/diskdrake/removable_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/diskdrake/removable_gtk.pm') diff --git a/perl-install/diskdrake/removable_gtk.pm b/perl-install/diskdrake/removable_gtk.pm index 451222b6c..c61b61a22 100644 --- a/perl-install/diskdrake/removable_gtk.pm +++ b/perl-install/diskdrake/removable_gtk.pm @@ -17,7 +17,7 @@ sub per_entry_action_box { N("Options") => \&raw_hd_options, N("Type") => \&removable_type, ); - @buttons = map_each { + my @buttons = map_each { my ($txt, $f) = @_; gtksignal_connect(new Gtk::Button($txt), clicked => sub { try_('', $f, $entry) }); } group_by2 @l; -- cgit v1.2.1