diff options
| author | Oliver Tappe | 2007-07-18 19:43:10 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-07-18 19:43:10 +0200 |
| commit | addb2f4f7e0e1304f5dfb9f9679efe8548c8472d (patch) | |
| tree | dc38ce00b666752bcd7a0d16589cdbbdb5d505ee /config-db/OpenSLX/MetaDB/mysql.pm | |
| parent | * split listing functionality into list-... and search-..., such that list-... (diff) | |
| download | core-addb2f4f7e0e1304f5dfb9f9679efe8548c8472d.tar.gz core-addb2f4f7e0e1304f5dfb9f9679efe8548c8472d.tar.xz core-addb2f4f7e0e1304f5dfb9f9679efe8548c8472d.zip | |
* replaces most occurrences of confess() with croak(), as that is less noisy.
Confess()-ing can still be triggered by specifying --debug-confess on the
commandline.
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1249 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/OpenSLX/MetaDB/mysql.pm')
| -rw-r--r-- | config-db/OpenSLX/MetaDB/mysql.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/config-db/OpenSLX/MetaDB/mysql.pm b/config-db/OpenSLX/MetaDB/mysql.pm index 03272331..661b744d 100644 --- a/config-db/OpenSLX/MetaDB/mysql.pm +++ b/config-db/OpenSLX/MetaDB/mysql.pm @@ -68,8 +68,9 @@ sub schemaConvertTypeDescrToNative } elsif ($typeDescr =~ m[^s\.(\d+)$]i) { return "varchar($1)"; } else { - confess _tr('UnknownDbSchemaTypeDescr', $typeDescr); + croak _tr('UnknownDbSchemaTypeDescr', $typeDescr); } + return; } sub schemaRenameTable @@ -85,7 +86,7 @@ sub schemaRenameTable my $sql = "ALTER TABLE $oldTable RENAME TO $newTable"; vlog(3, $sql); $dbh->do($sql) - or confess _tr(q[Can't rename table <%s> (%s)], $oldTable, $dbh->errstr); + or croak _tr(q[Can't rename table <%s> (%s)], $oldTable, $dbh->errstr); return; } @@ -107,7 +108,7 @@ sub schemaAddColumns my $sql = "ALTER TABLE $table $addClause"; vlog(3, $sql); $dbh->do($sql) - or confess _tr(q[Can't add columns to table <%s> (%s)], $table, + or croak _tr(q[Can't add columns to table <%s> (%s)], $table, $dbh->errstr); # if default values have been provided, we apply them now: if (defined $newColDefaultVals) { @@ -133,7 +134,7 @@ sub schemaDropColumns my $sql = "ALTER TABLE $table $dropClause"; vlog(3, $sql); $dbh->do($sql) - or confess _tr(q[Can't drop columns from table <%s> (%s)], $table, + or croak _tr(q[Can't drop columns from table <%s> (%s)], $table, $dbh->errstr); return; } @@ -158,7 +159,7 @@ sub schemaChangeColumns my $sql = "ALTER TABLE $table $changeClause"; vlog(3, $sql); $dbh->do($sql) - or confess _tr(q[Can't change columns in table <%s> (%s)], $table, + or croak _tr(q[Can't change columns in table <%s> (%s)], $table, $dbh->errstr); return; } |