Author: spadkins
Date: Fri May 12 13:57:23 2006
New Revision: 6292
Modified:
p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
Log:
return [] default columns if not found otherwise (i.e. pointing to wrong DB?)
Modified: p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm Fri May 12 13:57:23 2006
@@ -496,7 +496,8 @@
elsif (!$columns || $columns eq "physical") {
$columns = $table_def->{phys_columns};
}
- die "Unknown default columns [$columns]" if (ref($columns) ne "ARRAY");
+ $columns = [] if (!$columns || ref($columns) ne "ARRAY");
+ #die "Unknown default columns [$columns]" if (ref($columns) ne "ARRAY");
&App::sub_exit($columns) if ($App::trace);
return($columns);
}
@@ -2582,6 +2583,9 @@
}
}
}
+ #else {
+ # die $@;
+ #}
######################################################################
# primary key
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.