From 55ef6d852025b2aee6f633ecb72f588630acb035 Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 16 Apr 2001 14:09:10 +0000 Subject: updated --- perl-install/standalone/net_monitor | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'perl-install/standalone/net_monitor') diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index 2aebf3855..1da91ebf0 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -127,11 +127,7 @@ sub connection { 0; }); Gtk->main_iteration while Gtk->events_pending; - my $pid; - unless ($pid = fork) { - die (_("cannot fork: ") . $~) unless defined $pid; - exec( $isconnected2 ? "/etc/sysconfig/network-scripts/net_cnx_down" : "/etc/sysconfig/network-scripts/net_cnx_up"); - } + my $tag2 = Gtk->timeout_add(1000, sub { system( $isconnected2 ? "/etc/sysconfig/network-scripts/net_cnx_down &" : "/etc/sysconfig/network-scripts/net_cnx_up &"); 0; }); } sub rescan { -- cgit v1.2.1