[svn:dbi] r14389 - in dbi/trunk: . lib/DBD

Author: REHSACK
Date: Fri Sep 10 11:02:17 2010
New Revision: 14389

Modified:
   dbi/trunk/Changes
   dbi/trunk/lib/DBD/DBM.pm

Log:
Croak manually when file after tie doesn't exists in DBD::DBM when it have
to exists (detected with partially rewritten SQL::Statement tests)


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes	(original)
+++ dbi/trunk/Changes	Fri Sep 10 11:02:17 2010
@@ -13,6 +13,8 @@
     Many compiled drivers are likely to need updating.
   Fixed issue in DBD::File when absolute filename is used as table name
     (Jens Rehsack)
+  Croak manually when file after tie doesn't exists in DBD::DBM
+    when it have to exists (Jens Rehsack)
 
   Changed 50dbm_simple to simplify and fix problems (Martin J. Evans)
   Changed 50dbm_simple to skip aggregation tests when not using

Modified: dbi/trunk/lib/DBD/DBM.pm
==============================================================================
--- dbi/trunk/lib/DBD/DBM.pm	(original)
+++ dbi/trunk/lib/DBD/DBM.pm	Fri Sep 10 11:02:17 2010
@@ -391,6 +391,7 @@
         my $tie_class = $meta->{dbm_tietype};
         eval { tie %{ $meta->{hash} }, $tie_class, @tie_args };
         $@ and croak "Cannot tie(\%h $tie_class @tie_args): $@";
+	-f $meta->{f_fqfn} or croak( "No such file: '" . $meta->{f_fqfn} . "'" );
     }
 
     unless ( $flags->{createMode} )