Hello!
To see the file structure, click on "tree".
Note that updates take place every 10 minutes, commits may not be seen immediately.
projects
/
old-jaiswallab-svn
/
.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
966f489
)
Fix coding mistake from previous revision
author
elserj
<elserj@localhost>
Thu, 25 Jul 2013 20:07:01 +0000
(20:07 +0000)
committer
elserj
<elserj@localhost>
Thu, 25 Jul 2013 20:07:01 +0000
(20:07 +0000)
svn path=/; revision=495
interactome_scripts/species_tree_names_fix.pl
patch
|
blob
|
history
diff --git
a/interactome_scripts/species_tree_names_fix.pl
b/interactome_scripts/species_tree_names_fix.pl
index e1e1de1755f24aae4e1b06bf8d257a7e7f71fe65..3e9060aba57cc4fae510a1d73911bd6287c3b332 100755
(executable)
--- a/
interactome_scripts/species_tree_names_fix.pl
+++ b/
interactome_scripts/species_tree_names_fix.pl
@@
-31,10
+31,11
@@
while (<table_file>){
$spec_name =~ s/\.fasta//g;
$spec_name =~ s/\.fa//g;
my ($spec_genus, $spec_species) = split(/[_,.]/,$spec_name);
- if (
$spec_species neq ""
) {
+ if (
defined($spec_species)
) {
$spec_name = $spec_genus . " " . $spec_species;
- }else
+ }else
{
$spec_name = $spec_genus;
+ }
if(!defined($species_hash{$spec_id})) {
$species_hash{$spec_id} = $spec_name;
}else{