From c3a56db954023550258c3e962c12c68572a4b7eb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 29 Jan 2002 13:26:57 +0000 Subject: handle the case where samba and/or nfs-utils are not installed --- perl-install/diskdrake/smbnfs_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/diskdrake/smbnfs_gtk.pm') diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm index f5e90a5fb..f9fed7f78 100644 --- a/perl-install/diskdrake/smbnfs_gtk.pm +++ b/perl-install/diskdrake/smbnfs_gtk.pm @@ -78,7 +78,7 @@ sub per_entry_action_box { my @l = ( if_($entry, __("Mount point") => \&raw_hd_mount_point), if_($entry && $entry->{mntpoint}, __("Options") => \&raw_hd_options), - __("Export") => \&any::fileshare_config, + __("Export") => sub { any::fileshare_config($in, $kind->{type}) }, __("Done") => \&done, ); push @buttons, map { -- cgit v1.2.1