use strict;
use File::Copy "cp";
use FS::UID qw(adminsuidsetup);
+use FS::CurrentUser;
use FS::AccessRight;
use FS::Record qw(qsearchs qsearch);
use FS::access_group;
use FS::access_groupagent;
use FS::agent;
+$FS::CurrentUser::upgrade_hack = 1;
adminsuidsetup shift;
my $supergroup = qsearchs('access_group', { 'groupname' => 'Superuser' } );