From f07fdd812bf46888b9ca7c96d4a32debd0c5feed Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 23 Oct 2010 00:54:10 +0000
Subject: [PATCH] fix upgrades from old 1.7

---
 FS/FS/cust_bill_pkg_detail.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/FS/FS/cust_bill_pkg_detail.pm b/FS/FS/cust_bill_pkg_detail.pm
index b8af01303..7badaa3b9 100644
--- a/FS/FS/cust_bill_pkg_detail.pm
+++ b/FS/FS/cust_bill_pkg_detail.pm
@@ -238,7 +238,10 @@ sub _upgrade_schema { # class method
 
   warn "$me upgrading $class\n" if $DEBUG;
 
-  my $type = dbdef->table($class->table)->column('classnum')->type;
+  my $classnum = dbdef->table($class->table)->column('classnum')
+    or return;
+
+  my $type = $classnum->type;
   unless ( $type =~ /^int/i || $type =~ /int$/i ) {
 
     my $dbh = dbh;
-- 
2.11.0