better error reporting for schema load failures (w/DBIx::DBSchema 0.32+), hopefully...

diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm
index 0bb97f4..ab68765 100644 (file)
--- a/FS/FS/Schema.pm
+++ b/FS/FS/Schema.pm
@@ -51,7 +51,7 @@ sub reload_dbdef {
   unless ( exists $dbdef_cache{$file} ) {
     warn "[debug]$me loading dbdef for $file\n" if $DEBUG;
     $dbdef_cache{$file} = DBIx::DBSchema->load( $file )
-                            or die "can't load database schema from $file";
+      or die "can't load database schema from $file: $DBIx::DBSchema::errstr";
   } else {
     warn "[debug]$me re-using cached dbdef for $file\n" if $DEBUG;
   }