summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-26 20:14:19 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-26 20:14:19 +0000
commit841fa6677c7ca88bed65378dd7135969156f3a05 (patch)
treebca19a1d36e3b9c58e882e4c68fb213f7a3e7134 /perl-install
parentb51ffa9db486393e7b2531240db34df49a658141 (diff)
downloaddrakx-841fa6677c7ca88bed65378dd7135969156f3a05.tar
drakx-841fa6677c7ca88bed65378dd7135969156f3a05.tar.gz
drakx-841fa6677c7ca88bed65378dd7135969156f3a05.tar.bz2
drakx-841fa6677c7ca88bed65378dd7135969156f3a05.tar.xz
drakx-841fa6677c7ca88bed65378dd7135969156f3a05.zip
fix undeclared variable
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/removable_gtk.pm2
1 files changed, 1 insertions, 1 deletions
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;