diff options
| -rw-r--r-- | FS/FS/Upgrade.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 9af84a177..57c94ac6f 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -1,7 +1,7 @@ package FS::Upgrade; use strict; -use vars qw( @ISA @EXPORT_OK ); +use vars qw( @ISA @EXPORT_OK $DEBUG ); use Exporter; use Tie::IxHash; use FS::UID qw( dbh driver_name ); @@ -14,6 +14,8 @@ $FS::svc_domain::whois_hack = 1; @ISA = qw( Exporter ); @EXPORT_OK = qw( upgrade upgrade_sqlradius ); +$DEBUG = 1; + =head1 NAME FS::Upgrade - Database upgrade routines @@ -51,6 +53,7 @@ sub upgrade { die $@ if $@; if ( $class->can('_upgrade_data') ) { + warn "Upgrading $table...\n"; $class->_upgrade_data(%opt); } else { warn "WARNING: asked for upgrade of $table,". |