X-Git-Url: https://git.donarmstrong.com/?p=rsem.git;a=blobdiff_plain;f=extract-transcript-to-gene-map-from-trinity;h=bf53b9bdbdbad65ddc5c3441e7679f04e1eacd64;hp=e04e99305aa67f8ed6b3076b9e435de9f45f033a;hb=refs%2Fheads%2Fupstream;hpb=bf13409ebd15750dc9be1f92a622188d81ae634d

diff --git a/extract-transcript-to-gene-map-from-trinity b/extract-transcript-to-gene-map-from-trinity
index e04e993..bf53b9b 100755
--- a/extract-transcript-to-gene-map-from-trinity
+++ b/extract-transcript-to-gene-map-from-trinity
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
 
@@ -20,9 +20,9 @@ while (substr($tag, 0, 1) eq ">") {
     }
     if ($cnt == 0) { print "Warning: Fasta entry $tag has an empty sequence, it is omitted.\n"; }
     else {
-	my ($tid, $gid) = split(/ /, $tag);
-	my ($comp, $c, @tmp) = split(/_/, $gid);
-	$gid = join("_", $comp, $c);
+	my ($tid, @tmp) = split(/ /, $tag);
+	my ($comp, $c, @tmp) = split(/_/, $tag);
+	my $gid = join("_", $comp, $c);
 	print OUTPUT "$gid\t$tid\n";
     }
     $tag = $line; chomp($tag);