upgrade files as objects

This commit is contained in:
Graham Knop 2010-05-18 20:58:57 -05:00
parent 8326c63c1e
commit 4a61946399
7 changed files with 62 additions and 36 deletions

View file

@ -3,14 +3,13 @@ use Moose;
with 'WebGUI::Upgrade::File';
sub run {
my $class = shift;
my ($upgrade, $configFile, $version, $file) = @_;
my $self = shift;
my @command_line = (
$upgrade->mysql,
$upgrade->mysqlCommandLine($configFile),
$self->upgrade->mysql,
$self->upgrade->mysqlCommandLine($self->configFile),
'--batch',
'--execute=source ' . $file,
'--execute=source ' . $self->file,
);
system { $command_line[0] } @command_line