From cdbb390aaa800c3b90ea4e0ccb3b9d66808d3939 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 9 Feb 2005 12:48:40 +0000
Subject: perl_checker fixes

---
 perl-install/standalone/net_applet | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index f24b02712..9836a821c 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -65,12 +65,12 @@ gtkadd(my $icon = Gtk2::TrayIcon->new("Net_Applet"),
       );
 $eventbox->signal_connect(button_press_event => sub {
 			      if ($_[1]->button == 1) {
-				  is_running('net_monitor') or netMonitor()
+				  is_running('net_monitor') or netMonitor();
 			      }
                               $_[1]->button == 3 && $menu and $menu->popup(undef, undef, undef, undef, $_[1]->button, $_[1]->time);
                           });
 my ($opt) = @ARGV;
-if ($opt eq '--force' || $opt eq '-f') { setAutoStart('TRUE') };
+if ($opt eq '--force' || $opt eq '-f') { setAutoStart('TRUE') }
 
 shouldStart() or die "$onstartupfile should be set to TRUE or use net_applet --force";
 
@@ -93,7 +93,7 @@ sub is_running {
 sub shouldStart() {
     my %p = getVarsFromSh($onstartupfile);
     my $ret = $p{AUTOSTART} eq 'FALSE' ? 0 : 1;
-    $ret
+    $ret;
 }
 sub md5file {
     my @md5;
@@ -107,7 +107,7 @@ sub md5file {
 }
 sub netMonitor() {
     system("/usr/sbin/net_monitor&");
-    checkNetwork()
+    checkNetwork();
 }
 sub checkNetwork() {
     my $netcnx = {};
@@ -118,7 +118,7 @@ sub checkNetwork() {
     go2State($gw_address ? 'connected' : $gw_intf ? 'disconnected' : 'notconfigured', $gw_intf);
 
     my $new_md5 = md5file($prog_name);
-    if ($new_md5 ne $current_md5) { exec($prog_name) };
+    if ($new_md5 ne $current_md5) { exec($prog_name) }
 }
 sub getIP {
     my ($interface) = shift;
@@ -158,11 +158,11 @@ sub setState {
     $menu->append(gtksignal_connect(gtkset_active($checkmi = Gtk2::CheckMenuItem->new_with_label(N("Always launch on startup")), shouldStart()), toggled => sub { setAutoStart(uc(bool2text($checkmi->get_active))) }));
     $checkmi->show;
     $menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label(N("Quit"))), activate => sub { mainQuit() }));
-    $menu
+    $menu;
 }
 sub mainQuit() {
      Glib::Source->remove($timeout) if $timeout;
-     Gtk2->main_quit
+     Gtk2->main_quit;
 }
 sub setAutoStart {
     my $state = shift;
-- 
cgit v1.2.1