summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/smbnfs_gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-23 19:50:35 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-23 19:50:35 +0000
commit30d441e3847eb11c5de781503af64d38358f5408 (patch)
treeb5a904657487cd5dfec16ca195ee72b9098a086f /perl-install/diskdrake/smbnfs_gtk.pm
parent6fa4abc16d1b016f54bd1d6931d635a93a272232 (diff)
downloaddrakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.tar
drakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.tar.gz
drakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.tar.bz2
drakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.tar.xz
drakx-backup-do-not-use-30d441e3847eb11c5de781503af64d38358f5408.zip
perl_checker cleanups
Diffstat (limited to 'perl-install/diskdrake/smbnfs_gtk.pm')
-rw-r--r--perl-install/diskdrake/smbnfs_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm
index d260ce12b..28fc9f2ea 100644
--- a/perl-install/diskdrake/smbnfs_gtk.pm
+++ b/perl-install/diskdrake/smbnfs_gtk.pm
@@ -87,7 +87,7 @@ sub per_entry_action_box {
: gtknew('Label', text => "");
} group_by2(@l);
- gtkadd($box, gtknew('HBox', children_loose => [ @buttons]));
+ gtkadd($box, gtknew('HBox', children_loose => \@buttons));
}
sub done {
@@ -249,7 +249,7 @@ sub add_smbnfs {
gtknew('VBox', spacing => 7, children => [
1, gtknew('HBox', spacing => 7, children_loose => [
gtkset($kind->{display_box}, width => 200),
- $kind->{info_box}]),
+ $kind->{info_box} ]),
0, $kind->{action_box},
]);