Mercurial > repos > geert-vandeweyer > dc_genotyper

diff DC_Genotyper.pl @ 3:61b6d523acd9 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
syntax error in perl script
author geert-vandeweyer
date Thu, 25 Sep 2014 05:36:54 -0400
parents e8a32d824f39
children
line wrap: on
line diff
--- 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";