ma27/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

hydra-init: show SQL commands being executed

Browse source
This commit is contained in:
Eelco Dolstra 2012-04-15 18:34:32 +02:00
parent bf757f687d
commit 80705c8a20
1 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/script/hydra-init
View file

@ -51,7 +51,12 @@ for (my $n = $schemaVersion; $n < $maxSchemaVersion; $n++) {
my @statements = $sql_splitter->split($schema); my @statements = $sql_splitter->split($schema);
eval { eval {
$dbh->begin_work; $dbh->begin_work;
$dbh->do($_) foreach @statements; sub run {
my ($stm) = @_;
print STDERR "executing SQL statement: $stm\n";
$dbh->do($_);
}
run($_) foreach @statements;
$db->resultset('SchemaVersion')->update({version => $m}); $db->resultset('SchemaVersion')->update({version => $m});
$dbh->commit; $dbh->commit;
}; };