From 9ec92b0d7158dfafd82c0cfab2619e7399324f5d Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Fri, 1 Mar 2019 20:57:30 +0000
Subject: [PATCH] New Zea mays genes have additional padding 0 in transcript id

svn path=/; revision=658
---
 interactome_scripts/inparanoid_output_parse.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/interactome_scripts/inparanoid_output_parse.pl b/interactome_scripts/inparanoid_output_parse.pl
index f481e05..be8ea8d 100755
--- a/interactome_scripts/inparanoid_output_parse.pl
+++ b/interactome_scripts/inparanoid_output_parse.pl
@@ -153,8 +153,7 @@ foreach my $input_file (@files) {
 				
 				# skip Maize genes that are not the first transcript
 				if($species eq "Zea_mays") {
-						next if ($gene =~ /\_T0[2-9]$/);
-						next if ($gene =~ /\_T1[0-9]$/);
+						next if ($gene !~ /\_T001$/);
 				}
 				
 				# skip Theobroma genes that are not the first transcript
-- 
2.34.1