don't error out trying to create a dbdef file from scratch
authorivan <ivan>
Sun, 3 Sep 2006 03:12:00 +0000 (03:12 +0000)
committerivan <ivan>
Sun, 3 Sep 2006 03:12:00 +0000 (03:12 +0000)
bin/dbdef-create

index fea02c8..e0e7df7 100755 (executable)
@@ -4,9 +4,11 @@ use strict;
 use DBI;
 use DBIx::DBSchema 0.26;
 use FS::UID qw(adminsuidsetup datasrc driver_name);
+use FS::Schema;
 
 my $user = shift or die &usage;
 
+$FS::Schema::setup_hack = 1;
 my($dbh)=adminsuidsetup $user;
 
 #needs to match FS::Record