diff options
| -rw-r--r-- | perl-install/diskdrake/removable_gtk.pm | 2 |
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; |