From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 6 Apr 2011 13:53:31 +0000 (+0200)
Subject: Zwei Warnungen vermeiden
X-Git-Tag: release-2.6.3~40
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=45aeeb1343ff6dd6803fa24f04a38557e514910e;p=kivitendo-erp.git

Zwei Warnungen vermeiden
---

diff --git a/SL/DB.pm b/SL/DB.pm
index 38441aabf..491a03349 100644
--- a/SL/DB.pm
+++ b/SL/DB.pm
@@ -23,7 +23,7 @@ sub create {
   my $domain = shift || SL::DB->default_domain;
   my $type   = shift || SL::DB->default_type;
 
-  my ($domain, $type) = _register_db($domain, $type);
+  ($domain, $type) = _register_db($domain, $type);
 
   my $db = __PACKAGE__->new_or_cached(domain => $domain, type => $type);
 
@@ -81,7 +81,7 @@ sub _register_db {
   my %flattened_settings = _flatten_settings(%connect_settings);
 
   $domain = 'LXOFFICE' if $type =~ m/^LXOFFICE/;
-  $type  .= join($SUBSCRIPT_SEPARATOR, map { ($_, $flattened_settings{$_}) } sort keys %flattened_settings);
+  $type  .= join($SUBSCRIPT_SEPARATOR, map { ($_, $flattened_settings{$_} || '') } sort keys %flattened_settings);
   my $idx = "${domain}::${type}";
 
   if (!$_db_registered{$idx}) {