[Bioperl-guts-l] bioperl commit

[Shawn Hoon]

Mon Feb 10 12:02:07 EST 2003
Update of /home/repository/bioperl/bioperl-pipeline/Bio/Pipeline/BatchSubmission
In directory dev:/tmp/cvs-serv391/BatchSubmission

Modified Files:
	LSF.pm 
Log Message:
Added check for runner
bioperl-pipeline/Bio/Pipeline/BatchSubmission LSF.pm,1.11,1.12
===================================================================
RCS file: /home/repository/bioperl/bioperl-pipeline/Bio/Pipeline/BatchSubmission/LSF.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- /tmp/T0jla4Ya	2003-02-10 12:02:07.050008298 -0500
+++ /tmp/T1kla4Ya	2003-02-10 12:02:07.060004713 -0500
@@ -123,7 +123,7 @@
 
     my $runner = $RUNNER || undef;
 
-    unless (-x $runner) {
+    unless ($runner && -x $runner) {
         $runner = __FILE__;
         $runner =~ s:/([^/]*/[^/]*/[^/]*/[^/]*)$:/scripts/runner.pl:;
         $self->throw("Can't locate runner.pl - needs to be set in PipeConf.pm") unless -x $runner;