Imported Upstream version 1.2.17

[rsem.git] / extract-transcript-to-gene-map-from-trinity

diff --git a/extract-transcript-to-gene-map-from-trinity b/extract-transcript-to-gene-map-from-trinity
index e04e99305aa67f8ed6b3076b9e435de9f45f033a..bf53b9bdbdbad65ddc5c3441e7679f04e1eacd64 100755 (executable)
--- 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);