diff options
| author | ivan <ivan> | 2008-09-09 21:04:27 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-09-09 21:04:27 +0000 |
| commit | a5976b771d8134eccfd10b8b34b339ae5ff91c16 (patch) | |
| tree | 2638546d27b0d5b79cd3163d65ae9f4d01310f92 | |
| parent | 28ec68a70774434357c4fd9da18082068824193c (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 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,". |