Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: bcf64d2899
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (10 sloc) 0.309 kb
#!/usr/bin/perl -w
my $cnt = shift || 1000;
my $collision = 0;
for (1..$cnt) {
my $foo = `$^X -l -Mblib smp-test/uuid-fork.pl`;
my @ret = ($foo =~ m/^(.*)$/mg);
++$collision#, print "==> collision ($foo)\n"
if $ret[0] eq $ret[1];
}
print sprintf("%5.3f %% collision\n", $collision*100/$cnt);
Jump to Line
Something went wrong with that request. Please try again.