Merge pull request #10 from carlacummins/master

Bug fix in file existance check Former-commit-id: c17458c
sanger-pathogens · Aug 20, 2013 · 8aaf7a3 · 8aaf7a3
2 parents ee8ea2d + c7553fc
commit 8aaf7a3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Bio/Tradis/CommandLine/TradisAnalysis.pm b/lib/Bio/Tradis/CommandLine/TradisAnalysis.pm
@@ -74,7 +74,8 @@ sub run {
 	my $fq = $self->fastqfile;
     open( FILES, "<", $fq );
     my @filelist = <FILES>;
-    my $file_dir = $self->get_file_dir;
+	my $file_dir = "";
+	unless($fq =~ /^\//){$file_dir = $self->get_file_dir;}
 	#check files exist before running
 	my $line_no = 0;
 	foreach my $f1 (@filelist){