summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakperm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-04-30 13:31:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-04-30 13:31:12 +0000
commit140383ca483b3d4773a7af31a94d6439dec68e4b (patch)
treea20f994d71c4955d056a4fac46153be7c74e90f0 /perl-install/standalone/drakperm
parentcc17bac7ba323b6a02c944d7489b01e0e0e64904 (diff)
downloaddrakx-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-xperl-install/standalone/drakperm14
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;