From 9b2235296bbf8add2cc94312e0e2388d528ecf00 Mon Sep 17 00:00:00 2001
From: jason <jason@bioperl.org>
Date: Wed, 17 Dec 2003 03:15:08 +0000
Subject: [PATCH] stupid jason - it saves a syscall

svn path=/bioperl-run/trunk/; revision=13510
---
 Bio/Tools/Run/Phylo/PAML/Codeml.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bio/Tools/Run/Phylo/PAML/Codeml.pm b/Bio/Tools/Run/Phylo/PAML/Codeml.pm
index 66f5ce9..e3fa12d 100644
--- a/Bio/Tools/Run/Phylo/PAML/Codeml.pm
+++ b/Bio/Tools/Run/Phylo/PAML/Codeml.pm
@@ -469,7 +469,7 @@ sub run{
        my $exit_status;
        chdir($tmpdir);
        my $codemlexe = $self->executable();
-       $self->throw("unable to find or run executable for 'codeml'") unless $codemlexe && -e $codemlexe && -x $codemlexe;
+       $self->throw("unable to find or run executable for 'codeml'") unless $codemlexe && -e $codemlexe && -x _;
        if( $self->{'_branchLengths'} ) { 
 	   open(RUN, "echo $self->{'_branchLengths'} | $codemlexe |") or $self->throw("Cannot open exe $codemlexe");
        } else {
-- 
2.11.4.GIT