From 6974fa8b0419bbd0711f79c8b78e07a9543810dd Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 1 Jul 2007 20:28:50 +0000
Subject: * activated 'use warnings' to all modules and adjusted all occurences
 of   'use of uninitialized values', a couple of which might still show up *
 adjusted all code with respect to passing perlcritic level 4 and 5

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1207 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/OpenSLX/MetaDB/DBI.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'config-db/OpenSLX/MetaDB/DBI.pm')

diff --git a/config-db/OpenSLX/MetaDB/DBI.pm b/config-db/OpenSLX/MetaDB/DBI.pm
index ea0b66f1..91d774c7 100644
--- a/config-db/OpenSLX/MetaDB/DBI.pm
+++ b/config-db/OpenSLX/MetaDB/DBI.pm
@@ -14,14 +14,12 @@
 package OpenSLX::MetaDB::DBI;
 
 use strict;
-use vars qw($VERSION);
-$VERSION = 1.01;    # API-version . implementation-version
+use warnings;
+
 use base qw(OpenSLX::MetaDB::Base);
 
-use Carp;
 use DBI;
 use OpenSLX::Basics;
-use OpenSLX::MetaDB::Base 1;
 
 ################################################################################
 ### basics
@@ -783,7 +781,7 @@ sub schemaFetchDBVersion
 	  eval { $dbh->selectrow_hashref('SELECT schema_version FROM meta'); };
 	return 0 if $@;
 	# no database access possible
-	return undef unless defined $row;
+	return unless defined $row;
 	# no entry in meta-table
 	return $row->{schema_version};
 }
-- 
cgit v1.2.3-55-g7522