From a716218bac114ce4ad62ca44409a5083e2395fcd Mon Sep 17 00:00:00 2001
From: Ian Longden <ianl@sanger.ac.uk>
Date: Mon, 20 Dec 2004 16:41:33 +0000
Subject: [PATCH] do not open file until after the dumpcheck flag has been
checked
---
misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm b/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
index 3b60d0cb7b..e3c9e5950d 100644
--- a/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
+++ b/misc-scripts/xref_mapping/XrefMapper/BasicMapper.pm
@@ -412,9 +412,6 @@ sub fetch_and_dump_seq{
$self->dir(".");
}
$self->ensembl_dna_file($self->dir."/".$self->species."_dna.fasta");
- open(DNA,">".$self->ensembl_dna_file())
- || die("Could not open dna file for writing: ".$self->ensembl_dna_file."\n");
-
#
# store ensembl protein file name and open it
#
@@ -423,6 +420,8 @@ sub fetch_and_dump_seq{
if(defined($self->dumpcheck()) and -e $self->ensembl_protein_file() and -e $self->ensembl_dna_file()){
return;
}
+ open(DNA,">".$self->ensembl_dna_file())
+ || die("Could not open dna file for writing: ".$self->ensembl_dna_file."\n");
open(PEP,">".$self->ensembl_protein_file())
|| die("Could not open protein file for writing: ".$self->ensembl_protein_file."\n");
--
GitLab