# HG changeset patch
# User geert-vandeweyer
# Date 1411637814 14400
# Node ID 61b6d523acd976a2d0f052d6be0e410a7aa518c8
# Parent  fa8566bd4a516ef2e6ba8aae10e2bcdb9efb79c5
syntax error in perl script

diff -r fa8566bd4a51 -r 61b6d523acd9 DC_Genotyper.pl
--- a/DC_Genotyper.pl	Thu Sep 25 05:34:01 2014 -0400
+++ b/DC_Genotyper.pl	Thu Sep 25 05:36:54 2014 -0400
@@ -110,7 +110,7 @@
 	elsif (!-e "$snpfile.tbi") {
 		print "tabix index file is missing for '$snpfile'. creating now.\n";
 		## check if I can write it out for future use
-		$snpfile =~ m/(.*)/([^\/]+)$/;
+		$snpfile =~ m/(.*)([^\/]+)$/;
 		my $d = $1;
 		if (-w $d) {
 			open OUT, ">$d/lock";