diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 06:12:07 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 06:12:07 +0000 |
commit | e80d8aea22eb4bf86af2679f4f984da7277eee53 (patch) | |
tree | 8761dbe50286443e968b658b666eb44173d5d599 /perl-install | |
parent | 3983ff898098e7a79113318aa4dde65df50e4288 (diff) | |
download | drakx-e80d8aea22eb4bf86af2679f4f984da7277eee53.tar drakx-e80d8aea22eb4bf86af2679f4f984da7277eee53.tar.gz drakx-e80d8aea22eb4bf86af2679f4f984da7277eee53.tar.bz2 drakx-e80d8aea22eb4bf86af2679f4f984da7277eee53.tar.xz drakx-e80d8aea22eb4bf86af2679f4f984da7277eee53.zip |
make perl_checker happy
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakboot | 2 | ||||
-rwxr-xr-x | perl-install/standalone/drakbug | 6 | ||||
-rw-r--r-- | perl-install/standalone/net_applet | 10 |
3 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 677a25ee7..5c3dac568 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -119,7 +119,7 @@ sub splash_choice() { silent => N("Silent"), ); my $mode_combo = Gtk2::ComboBox->new_with_strings([ values %modes ], $modes{$theme->{enabled} ? $cmdline =~ /\bsplash=silent\b/ ? 'silent' : 'verbose' : 'text'}); - $mode_combo->entry->signal_connect( changed => sub { + $mode_combo->entry->signal_connect(changed => sub { $theme->{enabled} = $mode_combo->entry->get_text ne $modes{text}; if ($boot_warn && !$bootsplash_available && $theme->{enabled}) { if ($in->ask_yesorno(N("Warning"), diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index 7cde789fa..6b8ae9141 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -30,7 +30,7 @@ use Config; my ($bugzilla, $wizard_name); my $prog; my $incident = 0; -my ($bugdesc, $table, $comb_app, $com_app, $button_pkg, $package, $distrocode, $kernel); +my ($table, $comb_app, $com_app, $button_pkg, $package, $distrocode); foreach (@ARGV) { next unless defined $_; @@ -83,7 +83,7 @@ $table = create_packtable({ col_spacings => 5, row_spacings => 10 }, gtkpack_(Gtk2::HBox->new(0,5), 1, $com_app = gtkset_editable(Gtk2::Entry->new, 1), 0, $button_pkg = Gtk2::Button->new(N("Find Package")), - )], + ) ], [ Gtk2::Label->new(N("Package: ")), $package = Gtk2::Entry->new_with_text("...") ], # complain on gtk-perl@ml [ Gtk2::Label->new(N("Kernel:")), gtkset_editable(Gtk2::Entry->new_with_text($kernel_release), 0) ] ); @@ -129,7 +129,7 @@ gtkadd($window->{window}, if (defined $prog) { update_app($prog); $comb_app->set_text($prog); -}; +} $comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text) }); $button_pkg->signal_connect('clicked', sub { diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index 8c9d3ec24..28d7c8e11 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -112,7 +112,7 @@ my @attacks_queue; if ($enable_activefw) { $activefw = activefw->new(sub { - my ($con, $msg) = @_; + my ($_con, $msg) = @_; handle_attack($msg->get_args_list) if $msg->get_interface eq "com.mandrakesoft.activefirewall" && $msg->get_path eq "/com/mandrakesoft/activefirewall" && @@ -159,7 +159,7 @@ sub netMonitor() { checkNetwork(); } sub checkNetwork() { - my ($gw_intf, $is_up, $gw_address) = $watched_interface ? + my ($gw_intf, $_is_up, $gw_address) = $watched_interface ? ($watched_interface, network::tools::get_interface_status($watched_interface)) : network::tools::get_internet_connection($netc, $intf); go2State($gw_address ? 'connected' : $gw_intf ? 'disconnected' : 'notconfigured', $gw_intf); @@ -234,7 +234,7 @@ sub mainQuit() { Glib::Source->remove($timeout) if $timeout; Gtk2->main_quit; } -sub getAutoStart { +sub getAutoStart() { my %p = getVarsFromSh($onstartupfile); return to_bool($p{AUTOSTART} ne 'FALSE'); } @@ -245,7 +245,7 @@ sub setAutoStart { ); } -sub get_unprocessed_attacks { +sub get_unprocessed_attacks() { my @packets = $activefw->get_reports; while (my @attack = splice(@packets, 0, 9)) { handle_attack(@attack); @@ -266,7 +266,7 @@ sub set_attack_verdict { sub ask_attack_verdict { my ($attack) = @_; - my ($seq, $timestamp, $indev, $prefix, $sensor, $protocol, $addr, $port, $icmp_type) = @$attack; + my ($seq, $timestamp, $indev, $prefix, $_sensor, $protocol, $addr, $port, $icmp_type) = @$attack; unless ($interactive_cb->get_active) { #- let the daemon handle the blacklist policy in automatic mode |