From: ivan <ivan>
Date: Tue, 5 Feb 2002 20:25:32 +0000 (+0000)
Subject: better error messages if you haven't run fs-setup ?
X-Git-Tag: freeside_1_4_0pre11~101
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b6c28c086832416944440cab39f3bffc9d3dd1f1

better error messages if you haven't run fs-setup ?
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 4286606f0..755cef830 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -1014,7 +1014,8 @@ I<$FS::Record::setup_hack> is true.  Returns a DBIx::DBSchema object.
 
 sub reload_dbdef {
   my $file = shift || $dbdef_file;
-  $dbdef = load DBIx::DBSchema $file;
+  $dbdef = load DBIx::DBSchema $file
+    or die "can't load database schema from $file";
 }
 
 =item dbdef