minor update for compatibility with latest transdecoder

Author: brianjohnhaas

scripts/extract_FL_transdecoder_entries.pl

@@ -13,7 +13,9 @@
     while (<$fh>) {
         chomp;
         unless (/\w/) { next; }
+        if (/^\#/) { next; } #comment line
         my @x = split(/\t/);
+        
         if ($x[2] eq "gene" && $x[8] =~ /complete/) {
             print "$x[0]\n";
         }