diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-30 13:31:12 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-30 13:31:12 +0000 |
commit | 140383ca483b3d4773a7af31a94d6439dec68e4b (patch) | |
tree | a20f994d71c4955d056a4fac46153be7c74e90f0 /perl-install/standalone/drakperm | |
parent | cc17bac7ba323b6a02c944d7489b01e0e0e64904 (diff) | |
download | drakx-140383ca483b3d4773a7af31a94d6439dec68e4b.tar drakx-140383ca483b3d4773a7af31a94d6439dec68e4b.tar.gz drakx-140383ca483b3d4773a7af31a94d6439dec68e4b.tar.bz2 drakx-140383ca483b3d4773a7af31a94d6439dec68e4b.tar.xz drakx-140383ca483b3d4773a7af31a94d6439dec68e4b.zip |
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakperm')
-rwxr-xr-x | perl-install/standalone/drakperm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 6cd2202a3..fdf237e80 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -48,12 +48,12 @@ my $combo_perm = new Gtk2::Combo; $combo_perm->entry->set_editable(0); $combo_perm->set_popdown_strings(sort(keys %perm)); -sub add_callback { +sub add_callback() { row_setting_dialog(); $modified++; } -sub edit_callback { +sub edit_callback() { my (undef, $iter) = $permList->get_selection->get_selected; return unless $iter; row_setting_dialog($iter); @@ -61,7 +61,7 @@ sub edit_callback { my @buttons; -sub del_callback { +sub del_callback() { my ($tree, $iter) = $permList->get_selection->get_selected(); $tree->remove($iter); $iter->free; @@ -69,7 +69,7 @@ sub del_callback { $modified++; } -sub down_callback { +sub down_callback() { my ($model, $iter) = $permList->get_selection->get_selected; return unless $iter; my $new_iter = $model->iter_next($iter); @@ -83,7 +83,7 @@ sub down_callback { CLEAN1: $iter->free; } -sub up_callback { +sub up_callback() { my ($model, $iter) = $permList->get_selection->get_selected; return unless $iter; my $path = $model->get_path($iter); @@ -161,7 +161,7 @@ $w->main; ugtk2->exit; -sub check_save { +sub check_save() { $modified or return 0; my $sav_ = $in->ask_okcancel('Warning', 'your changed will be lost do you wish to continue?'); $sav_ @@ -201,7 +201,7 @@ sub display_perm { $prec_txt = $perm_level; } -sub save_perm { +sub save_perm() { $modified or return 0; my $val; local *F; |