X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpassword_history.pm;h=13d16010d3d0c7fa170966e0c8c7bdd3bffcd9e7;hp=a34f6169b137ce6a8aea60018721a0953b6af833;hb=20f03d52cc6c930f610c0b4466eeeeda54fdbb40;hpb=d1f9776b822ae835ba5374dca3f76ce3ee76e5dc

diff --git a/FS/FS/password_history.pm b/FS/FS/password_history.pm
index a34f6169b..13d16010d 100644
--- a/FS/FS/password_history.pm
+++ b/FS/FS/password_history.pm
@@ -161,9 +161,14 @@ sub password_equals {
 }
 
 sub _upgrade_schema {
+  my $class = shift;
+  # if the table doesn't exist yet then nothing needs to happen here
+  my $dbdef_table = $class->dbdef_table
+    or return;
+
   # clean up history records where linked_acct has gone away
   my @where;
-  for my $fk ( grep /__/, __PACKAGE__->dbdef_table->columns ) {
+  for my $fk ( grep /__/, $dbdef_table->columns ) {
     my ($table, $key) = split(/__/, $fk);
     push @where, "
       ( $fk IS NOT NULL AND NOT EXISTS(SELECT 1 FROM $table WHERE $table.$key = $fk) )";