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} )
