From afc4bc7b60256fd6d45b28da7e43c7a67eb43eb8 Mon Sep 17 00:00:00 2001
From: Guruprasad Anada <gua110@bx.psu.edu>
Date: Mon, 17 Jan 2011 20:55:58 -0500
Subject: [PATCH] Fixed a bug in microsatellite birth/death tool

---
 tools/regVariation/microsatellite_birthdeath.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/regVariation/microsatellite_birthdeath.pl b/tools/regVariation/microsatellite_birthdeath.pl
index 3bf909a4428..17f1924afbb 100644
--- a/tools/regVariation/microsatellite_birthdeath.pl
+++ b/tools/regVariation/microsatellite_birthdeath.pl
@@ -49,8 +49,8 @@ my $info = $rando.$1.$2.$3;
 
 
 my @thresharr = (0, split(/,/,$thresholds));
-
-my $megamatch = $orth.".megamatch.net.axt"; #"/gpfs/home/ydk104/work/rhesus_microsat/axtNet/hg18.panTro2.ponAbe2.rheMac2.calJac1/chr1.hg18.panTro2.ponAbe2.rheMac2.calJac1.net.axt";
+my $randno=int(rand(100000));
+my $megamatch = $randno.".megamatch.net.axt"; #"/gpfs/home/ydk104/work/rhesus_microsat/axtNet/hg18.panTro2.ponAbe2.rheMac2.calJac1/chr1.hg18.panTro2.ponAbe2.rheMac2.calJac1.net.axt";
 my $megamatchlck = $megamatch.".lck";
 unlink $megamatchlck;