[svn:dbi] r14004 - dbi/trunk/lib/DBI/SQL

[REHSACK]

Author: REHSACK
Date: Sat May 22 07:00:56 2010
New Revision: 14004

Modified:
   dbi/trunk/lib/DBI/SQL/Nano.pm

Log:
change order of attribute checks in DBI::SQL::Nano::Table_


Modified: dbi/trunk/lib/DBI/SQL/Nano.pm
==============================================================================
--- dbi/trunk/lib/DBI/SQL/Nano.pm       (original)
+++ dbi/trunk/lib/DBI/SQL/Nano.pm       Sat May 22 07:00:56 2010
@@ -711,11 +711,11 @@
     my ( $proto, $attr ) = @_;
     my ($self) = {%$attr};
 
-    defined( $self->{col_nums} ) and "HASH" eq ref( $self->{col_nums} )
-      or croak("attrbute 'col_nums' must be defined as a hash");
-    exists( $self->{col_nums} ) or $self->{col_nums} = _map_colnums( 
$self->{col_names} );
     defined( $self->{col_names} ) and "ARRAY" eq ref( $self->{col_names} )
-      or croak("attrbute 'col_names' must be defined as an array");
+      or croak("attribute 'col_names' must be defined as an array");
+    exists( $self->{col_nums} ) or $self->{col_nums} = _map_colnums( 
$self->{col_names} );
+    defined( $self->{col_nums} ) and "HASH" eq ref( $self->{col_nums} )
+      or croak("attribute 'col_nums' must be defined as a hash");
 
     bless( $self, ( ref($proto) || $proto ) );
     return $self;