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 );
@ISA = qw( Exporter );
@EXPORT_OK = qw( upgrade upgrade_sqlradius );
+$DEBUG = 1;
+
=head1 NAME
FS::Upgrade - Database upgrade routines
die $@ if $@;
if ( $class->can('_upgrade_data') ) {
+ warn "Upgrading $table...\n";
$class->_upgrade_data(%opt);
} else {
warn "WARNING: asked for upgrade of $table,".