Attachment 879426 Details for Bug 1080501 – The new perl script which used to reporduce

The new perl script which used to reporduce

libvirt-perl.pl (text/plain), 1.21 KB, created by zhenfeng wang on 2014-03-27 11:39:35 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: zhenfeng wang

Created: 2014-03-27 11:39:35 UTC

Size: 1.21 KB

patch

obsolete

>#!/usr/bin/perl
>#
> 
>use strict;
> 
>use Sys::Virt;
>use POSIX qw(:signal_h);
>use POSIX ":sys_wait_h";
> 
>sub main {
>    print "init... pid=$$","\n";
>    $SIG{'CHLD'} = sub { my $kid; print "receive chld","\n";
>        do { $kid = waitpid(-1, WNOHANG); } while $kid > 0; };
> 
>    while(1){
>                print "while...","\n";
> 
>                last if( fork() == 0 );
>                print "fork 1","\n";
>                sleep(5);
>                last if( fork() == 0 );
>                print "fork 2","\n";
>                sleep(5);
> 
>       # my $dcon =  Sys::Virt->new( 'uri'=>'qemu+tcp://server1/system?no_verify=1' );
>        my $dcon =  Sys::Virt->new( 'uri'=>'qemu+tls://server1/system?no_verify=1' );
>        #my $dcon =  Sys::Virt->new( 'uri'=>'test:///default' );
>        #my $dcon =  Sys::Virt->new( 'uri'=>'qemu+libssh2://10.10.4.249/system?no_verify=1' );
>                print "connection open","\n";
> 
>                sleep(5);
>                last if( fork() == 0 );
>                print "fork 3","\n";
>                sleep(5);
>                last if( fork() == 0 );
>                print "fork 4","\n";
>                sleep(5);
>                print "go next...","\n";
>    }
>    print "end... pid=$$","\n";
>}
> 
>&main;
>1;

Actions: View

Attachments on bug 1080501: 878947 | 878948 | 879426