# HG changeset patch
# User mcharles
# Date 1414663594 14400
# Node ID 3d79224aa2dce7cdd39c2e7f3cfc89f1058d130e
# Parent  8dfa09868059b4fb3a76c63ec5b2f214af090b3f
Uploaded

diff -r 8dfa09868059 -r 3d79224aa2dc genephys/GenePhys.pl
--- a/genephys/GenePhys.pl	Fri Oct 24 05:54:20 2014 -0400
+++ b/genephys/GenePhys.pl	Thu Oct 30 06:06:34 2014 -0400
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+#V1.1.1 minor bug correction (see in code)
 #V1.1.0 integrated gene extraction 
 #V1.0.2 integrated segment fasta extraction
 #V1.0.1 added log and option
@@ -282,7 +283,7 @@
 	
 	open(IG, $input_genes_position_file)  or die("Can't open $input_genes_position_file\n");
 	while (my $gene_desc=<IG>){
-		my @gene_desc = split(/\s+/,$gene_desc);
+		my @gene_desc = split(/\t+/,$gene_desc);#Modification in 1.1.1 : \s => \t
 		if ($#gene_desc != 4){
 			print STDERR "Error in gene position file format\n$gene_desc\n";
 			exit(0);