diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-02-24 18:49:29 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-02-24 18:49:29 +0000 |
| commit | d37b042ea8670606b2486c83cdff8a9fc1876e9f (patch) | |
| tree | a7670410243cfda1bf8acaf05ac7f5846153a19c /perl-install/standalone/drakups | |
| parent | a4f2d67e980739d69148e2dbdb099c3bea7a594b (diff) | |
| download | drakx-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/drakups')
| -rwxr-xr-x | perl-install/standalone/drakups | 10 |
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 ], |