summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-16 07:31:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-16 07:31:31 +0000
commitbef18ac67d6186de8f2c48621a30e1810e6b4856 (patch)
tree02d02c5c44fd715351446aad45a79358c066d201 /perl-install
parentf8ec7e94594de6a32774674287a6b30f1a1e2938 (diff)
downloaddrakx-bef18ac67d6186de8f2c48621a30e1810e6b4856.tar
drakx-bef18ac67d6186de8f2c48621a30e1810e6b4856.tar.gz
drakx-bef18ac67d6186de8f2c48621a30e1810e6b4856.tar.bz2
drakx-bef18ac67d6186de8f2c48621a30e1810e6b4856.tar.xz
drakx-bef18ac67d6186de8f2c48621a30e1810e6b4856.zip
perl_checker cleanups
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakups14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index d2acd5989..5e6a871a8 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -23,7 +23,7 @@ my ($w, $in); # GUI
my %indexes;
-sub writeconf {
+sub writeconf() {
info_dialog(N("Warning"), "Write support for users is incomplete\n\nIt lacks some support for some extra fields that would be lost else");
log::explanations("Updating NUT configuration accordingly");
$struct->writeConf($files{devices});
@@ -32,7 +32,7 @@ sub writeconf {
$users->writeConf($files{users});
}
-sub readDriversList {
+sub readDriversList() {
my (%ups, @ups);
local $_;
foreach (cat_(first(glob("/usr/share/doc/nut-*/docs/driver.list")))) {
@@ -87,7 +87,7 @@ Do you want to autodetect UPS devices connected to this machine or to manually s
end => 1,
pre => sub {
local $::isWizard;
- my $wait = $in->wait_message(N("Please wait"), N("Detection in progress"));
+ my $_wait = $in->wait_message(N("Please wait"), N("Detection in progress"));
# UPS autoconfig:
detect_devices::probeSerialDevices() if !$::testing;
@new_devices = ();
@@ -206,19 +206,19 @@ sub edit_row {
}
-sub add_callback() {
- my ($model, $list, $getindex) = @_;
+sub add_callback {
+ my ($model, $_list, $_getindex) = @_;
edit_row($model);
}
-sub edit_callback() {
+sub edit_callback {
my ($model, $list) = @_;
my ($iter) = $list->get_selection->get_selected;
return unless $iter;
edit_row($model, $iter);
}
-sub del_callback() {
+sub del_callback {
my ($model, $list) = @_;
my (undef, $iter) = $list->get_selection->get_selected;
my $removed_idx = $list->get($iter, 0); # 1st column is index