[svn:dbi] r15395 - dbi/branches/sqlengine/lib/DBI/DBD

[REHSACK]

Author: REHSACK
Date: Thu Sep 20 23:47:55 2012
New Revision: 15395

Modified:
   dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm

Log:
- improve error message in case of lock mode
- tidy readonly approval


Modified: dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm
==============================================================================
--- dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm     (original)
+++ dbi/branches/sqlengine/lib/DBI/DBD/SqlEngine.pm     Thu Sep 20 23:47:55 2012
@@ -1298,10 +1298,15 @@
     # reaching DBI::DBD::SqlEngine::Table->new(), we need to intercept
     # ReadOnly here
     my $write_op = $createMode || $lockMode || $flags->{dropMode};
-    if( $write_op ) {
-       my ( $tblnm, $table_meta ) = $class->get_table_meta( $data->{Database}, 
$table, 1 )
-         or croak "Cannot find appropriate file for table '$table'";
-       $table_meta->{readonly} and croak "Table '$table' is marked readonly - 
" . $self->{command} . " command forbidden";
+    if ($write_op)
+    {
+        my ( $tblnm, $table_meta ) = $class->get_table_meta( 
$data->{Database}, $table, 1 )
+          or croak "Cannot find appropriate file for table '$table'";
+        $table_meta->{readonly}
+          and croak "Table '$table' is marked readonly - "
+          . $self->{command}
+          . ( $lockMode ? " with locking" : "" )
+          . " command forbidden";
     }
 
     return $class->new( $data, { table => $table }, $flags );