From 45aeeb1343ff6dd6803fa24f04a38557e514910e Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 6 Apr 2011 15:53:31 +0200 Subject: [PATCH] Zwei Warnungen vermeiden --- SL/DB.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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}) { -- 2.20.1