diff options
| author | ivan <ivan> | 2008-09-09 21:04:39 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-09-09 21:04:39 +0000 |
| commit | 70ad4972ac72b9b13c420fea501ad13af07ee9c4 (patch) | |
| tree | 77b1e505c9763ed71e4c080db98beee67b9a51aa | |
| parent | 7065f55159fa2585f141a32d7e257430131cc601 (diff) | |
show which _upgrade_data sub is being run
| -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 53a1a82a3..4024ab8b9 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,". |