Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 45aeeb13

Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt

  • ID 45aeeb1343ff6dd6803fa24f04a38557e514910e
  • Vorgänger 40cd9c84
  • Nachfolger a434f98f

Zwei Warnungen vermeiden

Unterschiede anzeigen:

SL/DB.pm
23 23 
  my $domain = shift || SL::DB->default_domain;
24 24 
  my $type   = shift || SL::DB->default_type;
25 25 

  		




  26
  
  
    
  my ($domain, $type) = _register_db($domain, $type);


  		




  
  26
  
    
  ($domain, $type) = _register_db($domain, $type);


  		




  27
  27
  
    

  		




  28
  28
  
    
  my $db = __PACKAGE__->new_or_cached(domain => $domain, type => $type);


  		




  29
  29
  
    

  		




  ......




  81
  81
  
    
  my %flattened_settings = _flatten_settings(%connect_settings);


  		




  82
  82
  
    

  		




  83
  83
  
    
  $domain = 'LXOFFICE' if $type =~ m/^LXOFFICE/;


  		




  84
  
  
    
  $type  .= join($SUBSCRIPT_SEPARATOR, map { ($_, $flattened_settings{$_}) } sort keys %flattened_settings);


  		




  
  84
  
    
  $type  .= join($SUBSCRIPT_SEPARATOR, map { ($_, $flattened_settings{$_} || '') } sort keys %flattened_settings);


  		




  85
  85
  
    
  my $idx = "${domain}::${type}";


  		




  86
  86
  
    

  		




  87
  87
  
    
  if (!$_db_registered{$idx}) {


  		












Auch abrufbar als:  Unified diff