From 8152a31a3cd081e23ff05983703788a74fa90a6c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 12 Aug 2003 13:47:58 +0000 Subject: do pop the "do you want to install samba?" (otherwise when cancel is pressed, drakconf thinks the install exited abnormally since no window was embedded whereas "diskdrake --smb" is normally embedded) --- perl-install/diskdrake/smbnfs_gtk.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (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 0a9af7958..39a81ee73 100644 --- a/perl-install/diskdrake/smbnfs_gtk.pm +++ b/perl-install/diskdrake/smbnfs_gtk.pm @@ -17,10 +17,7 @@ my ($all_hds, $in, $tree_model, $current_entry, $current_leaf, %icons); sub main { ($in, $all_hds, my $type) = @_; my ($kind) = $type eq 'smb' ? smb2kind() : nfs2kind(); - { - local $ugtk2::pop_it = 1; - $kind->check($in) or return; - } + $kind->check($in) or return; my $w = ugtk2->new('DiskDrake'); -- cgit v1.2.1