Blame smp-test/uuid-fork.pl

Packit fc16e3
#!/usr/bin/perl
Packit fc16e3
Packit fc16e3
use Data::UUID 'NameSpace_URL';
Packit fc16e3
Packit fc16e3
#my $du = Data::UUID->new;
Packit fc16e3
Packit fc16e3
Packit fc16e3
#$du->create_str;
Packit fc16e3
Packit fc16e3
Packit fc16e3
if (fork()) {
Packit fc16e3
    print "GOT :".Data::UUID->new->create_str;
Packit fc16e3
    exit;
Packit fc16e3
}
Packit fc16e3
Packit fc16e3
print "GOT :".Data::UUID->new->create_str;