summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-02-24 18:49:29 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-02-24 18:49:29 +0000
commitd37b042ea8670606b2486c83cdff8a9fc1876e9f (patch)
treea7670410243cfda1bf8acaf05ac7f5846153a19c /perl-install/standalone
parenta4f2d67e980739d69148e2dbdb099c3bea7a594b (diff)
downloaddrakx-d37b042ea8670606b2486c83cdff8a9fc1876e9f.tar
drakx-d37b042ea8670606b2486c83cdff8a9fc1876e9f.tar.gz
drakx-d37b042ea8670606b2486c83cdff8a9fc1876e9f.tar.bz2
drakx-d37b042ea8670606b2486c83cdff8a9fc1876e9f.tar.xz
drakx-d37b042ea8670606b2486c83cdff8a9fc1876e9f.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakups10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index dbfd0a613..a5a0c9206 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -38,7 +38,7 @@ sub writeconf() {
}
sub read_nut_config() {
- $struct = Libconf::Glueconf::NUT::Ups_conf->new({ filename => $files{devices} })
+ $struct = Libconf::Glueconf::NUT::Ups_conf->new({ filename => $files{devices} });
}
sub readDriversList() {
@@ -47,7 +47,7 @@ sub readDriversList() {
foreach (cat_(first(glob("/usr/share/doc/nut-*/docs/driver.list")))) {
/^#/ and next;
if (my ($vendor, $model, $extra, $driver) = /^"(.*)"\s+"(.*)"\s+"(.*)"\s+"(.*)"/) {
- $ups{$vendor}{$model.$extra} = {
+ $ups{$vendor}{$model . $extra} = {
driver => $driver,
extra => $extra,
};
@@ -118,7 +118,7 @@ Do you want to autodetect UPS devices connected to this machine or to manually s
name => sub {
if (@new_devices) {
N("Congratulations") . "\n\n" .
- N("The wizard successfully added the following UPS devices:") . join("\n\n-", @new_devices)
+ N("The wizard successfully added the following UPS devices:") . join("\n\n-", @new_devices);
} else {
N("No new UPS devices was found");
}
@@ -130,7 +130,7 @@ Do you want to autodetect UPS devices connected to this machine or to manually s
type => 'combo', sort => 1, separator => '|' }, ],
post => sub {
($vendor, $model, $extra) = ($1, $2, $3) if $ups =~ /(.*)\|(.*) \((.*)\)$/;
- ($name, $driver, $port) = ("myups", $ups_models->{$vendor}{$model.$extra}{driver}, "");
+ ($name, $driver, $port) = ("myups", $ups_models->{$vendor}{$model . $extra}{driver}, "");
($driver) = split(/\s+/, $driver);
"driver";
},
@@ -373,7 +373,7 @@ foreach my $i (@pages) {
my ($id, $label, $sub) = @$_;
gtksignal_connect($buttons{$id} = Gtk2::Button->new($label), clicked => sub {
$sub->($model, $list, $getindex);
- })
+ });
} ([ 'add', N("Add"), $i->{callbacks}{add} || \&add_callback ],
[ 'edit', N("Edit"), \&edit_callback ],
[ 'remove', N("Remove"), \&del_callback ],