[Bioperl-guts-l] [14798] bioperl-live/trunk/Bio/DB/Fasta.pm: for some reason the failure to open a Bio::DB:: Fasta file was not generating an error message; this is now fixed

[Lincoln Stein]

Revision: 14798
Author:   lstein
Date:     2008-08-11 11:55:02 -0400 (Mon, 11 Aug 2008)

Log Message:
-----------
for some reason the failure to open a Bio::DB::Fasta file was not generating an error message; this is now fixed

Modified Paths:
--------------
    bioperl-live/trunk/Bio/DB/Fasta.pm

Modified: bioperl-live/trunk/Bio/DB/Fasta.pm
===================================================================
--- bioperl-live/trunk/Bio/DB/Fasta.pm	2008-08-11 15:22:14 UTC (rev 14797)
+++ bioperl-live/trunk/Bio/DB/Fasta.pm	2008-08-11 15:55:02 UTC (rev 14798)
@@ -523,8 +523,11 @@
   my %offsets;
   my $flags = $write ? O_CREAT|O_RDWR : O_RDONLY;
   my @dbmargs = $self->dbmargs;
-  tie %offsets,'AnyDBM_File',$index,$flags,0644, at dbmargs 
-	 or $self->throw( "Can't open cache file $index: $!");
+  eval {
+      tie %offsets,'AnyDBM_File',$index,$flags,0644, at dbmargs 
+	  or die "Can't open sequence index file $index: $!";
+  };
+  warn $@ if $@;
   return \%offsets;
 }