changeset 3:61b6d523acd9 draft

syntax error in perl script
author geert-vandeweyer
date Thu, 25 Sep 2014 05:36:54 -0400
parents fa8566bd4a51
children 92207f2ec144
files DC_Genotyper.pl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
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";