summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-03-04 12:54:12 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-03-04 12:54:12 +0000
commit05d8cffc9726499815a3ea3a848b112acd230730 (patch)
tree4e7eeb6229df1785861774f70a6ba035b0db2f20 /perl-install
parent360c6f23e984df9a11906d336013a0590dd07535 (diff)
downloaddrakx-05d8cffc9726499815a3ea3a848b112acd230730.tar
drakx-05d8cffc9726499815a3ea3a848b112acd230730.tar.gz
drakx-05d8cffc9726499815a3ea3a848b112acd230730.tar.bz2
drakx-05d8cffc9726499815a3ea3a848b112acd230730.tar.xz
drakx-05d8cffc9726499815a3ea3a848b112acd230730.zip
- remove last warning
- remove unused variables
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index d601900ca..18089ed8a 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
-
+use diagnostics;
use lib qw(/usr/lib/libDrakX);
use standalone;
@@ -151,9 +151,9 @@ $combo_perm->entry->set_text($default_perm_level);
$permList->get_selection()->signal_connect('changed' => sub {
my ($select) = @_;
- my ($model, $iter) = $select->get_selected();
+ my (undef, $iter) = $select->get_selected();
my $editable = $editable;
- $editable = 0 unless $model;
+ $editable = 0 unless $iter;
sensitive_buttons($editable);
});
@@ -171,9 +171,9 @@ sub check_save {
sub display_perm {
my $perm_level = shift @_;
+ return unless $perm_level;
my $file = $perm{$perm_level};
my $sav_ = &check_save;
- my $i = 0;
if ($modified && ! $sav_) {
$combo_perm->entry->signal_handler_block($combo_sig);
$combo_perm->entry->set_text($prec_txt);
@@ -209,7 +209,6 @@ sub save_perm {
open F, '>' . $perm{editable} or die("Impssible to process \"", $perm{editable}, "\"");
$treeModel->foreach(sub {
my ($model, $_path, $iter) = @_;
- my $module = $model->get($iter, 0);
my $line = $model->get($iter, 0) . "\t" . $model->get($iter,1) . ($model->get($iter,2) ? "." . $model->get($iter,2) : "") . "\t" . $model->get($iter,3) . "\n";
print F $line;
return 0;