diff options
| author | damien <damien@mandriva.com> | 2001-10-09 12:00:53 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-10-09 12:00:53 +0000 |
| commit | 0793833ba148ad49e1a66a89e02a0d716947120a (patch) | |
| tree | 52f789cfdefccae69b9b82383ccfb7f70bea3e8c /perl-install | |
| parent | 0f4038fd09f9f8582f1a868584d8cac54df640eb (diff) | |
| download | drakx-0793833ba148ad49e1a66a89e02a0d716947120a.tar drakx-0793833ba148ad49e1a66a89e02a0d716947120a.tar.gz drakx-0793833ba148ad49e1a66a89e02a0d716947120a.tar.bz2 drakx-0793833ba148ad49e1a66a89e02a0d716947120a.tar.xz drakx-0793833ba148ad49e1a66a89e02a0d716947120a.zip | |
removed trash
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/tools.pm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 4fdab586a..f99ad48e7 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -118,13 +118,11 @@ my $kid_pipe; sub connected_bg { my ($ref) = @_; if (defined $kid_pipe) { - print "GGGGGGGGG\n"; local *F; *F = *$kid_pipe; fcntl(F, F_SETFL, O_NONBLOCK) or die "can't fcntl F_SETFL: $!"; my $a; if ($a = <F> ) { - print "gooood\n"; chomp $a; close($kid_pipe) || warn "kid exited $?"; undef $kid_pipe; @@ -132,7 +130,6 @@ sub connected_bg { $a eq '0' and $$ref = 0; } } else { - print "BBBBBBBBB\n"; $kid_pipe = connected2(); } 1; @@ -145,7 +142,6 @@ sub connected2 { } else { # child ($EUID, $EGID) = ($UID, $GID); # suid only my $a = gethostbyname("mandrakesoft.com") ? 1 : 0; - print "$a\n"; c::_exit(0); } } |