make gc happy

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 2bd2120ca..8c20b001d 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -53,8 +53,8 @@ my $disconnect = "@ARGV" =~ /--disconnect/;
 my ($default_intf) = "@ARGV" =~ /--defaultintf (\w+)/;
 
 if ($force) {
-    $connect and system("/etc/sysconfig/network-scripts/net_cnx_up &");
-    $disconnect and system("/etc/sysconfig/network-scripts/net_cnx_down &");
+    $connect and system("/etc/sysconfig/network-scripts/net_cnx_up");
+    $disconnect and system("/etc/sysconfig/network-scripts/net_cnx_down");
     $connect = $disconnect = 0;
 }
 $quiet and exit(0);

path: root/perl-install/c.pm

package c; # $Id$

use vars qw($AUTOLOAD);

use c::stuff;
use MDK::Common;

sub AUTOLOAD {
    $AUTOLOAD =~ /::(.*)/;
    my @l = eval { &{$c::stuff::{$1}} };
    if (my $err = $@) {
	$err =~ /Undefined subroutine &main::/ ?
	  die("can't find function $AUTOLOAD\n" . backtrace()) :
	  die($err);	
    }
    wantarray ? @l : $l[0];
}

1;