diff options
| author | Oliver Tappe | 2007-07-10 22:57:27 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2007-07-10 22:57:27 +0200 |
| commit | d5113273cf2cefd1db9942e4d743f455aa8f669a (patch) | |
| tree | f51f0d84dbd40b62b12d6e30479464eba391eff3 /config-db/OpenSLX/MetaDB/SQLite.pm | |
| parent | Adaptions for Ubu 7.04 and Bugfixes for older Versions (diff) | |
| download | core-d5113273cf2cefd1db9942e4d743f455aa8f669a.tar.gz core-d5113273cf2cefd1db9942e4d743f455aa8f669a.tar.xz core-d5113273cf2cefd1db9942e4d743f455aa8f669a.zip | |
* more work towards perlcritic compliance, fixed the low-hanging fruit
for level 4
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1234 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/OpenSLX/MetaDB/SQLite.pm')
| -rw-r--r-- | config-db/OpenSLX/MetaDB/SQLite.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/config-db/OpenSLX/MetaDB/SQLite.pm b/config-db/OpenSLX/MetaDB/SQLite.pm index d6681ce6..f6b395d0 100644 --- a/config-db/OpenSLX/MetaDB/SQLite.pm +++ b/config-db/OpenSLX/MetaDB/SQLite.pm @@ -35,7 +35,7 @@ sub new return bless $self, $class; } -sub connect +sub connect ## no critic (ProhibitBuiltinHomonyms) { my $self = shift; @@ -70,6 +70,7 @@ sub schemaRenameTable vlog(3, $sql); $dbh->do($sql) or croak(_tr(q[Can't rename table <%s> (%s)], $oldTable, $dbh->errstr)); + return; } sub schemaAddColumns @@ -98,6 +99,7 @@ sub schemaAddColumns if (defined $newColDefaultVals) { $self->_doUpdate($table, undef, $newColDefaultVals); } + return; } 1; |