Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c51601f0

Von Sven Schöling vor fast 9 Jahren hinzugefügt

DB-Handle Caches: DATESTYLE korrekt setzen

Unterschiede anzeigen:

SL/DBConnect/Cache.pm
42 42 
sub _args2str {
43 43 
  my (@args) = @_;
44 44 

  		




  45
  
  
    
  my ($dbconnect, $dbuser, $dbpasswd, $options) = @_;


  		




  
  45
  
    
  my ($dbconnect, $dbuser, $dbpasswd, $options, $initial_sql) = @_;


  		




  46
  46
  
    
  $dbconnect //= '';


  		




  47
  47
  
    
  $dbuser    //= '';


  		




  48
  48
  
    
  $dbpasswd  //= '';


  		




  ......




  52
  52
  
    
    map { $_ => $options->{$_} }


  		




  53
  53
  
    
    sort keys %$options;                  # deterministic order


  		




  54
  54
  
    

  		




  55
  
  
    
  join ';', apply { s/([;\\])/\\$1/g } $dbconnect, $dbuser, $dbpasswd, $options_str;


  		




  
  55
  
    
  join ';', apply { s/([;\\])/\\$1/g } $dbconnect, $dbuser, $dbpasswd, $options_str, $initial_sql;


  		




  56
  56
  
    
}


  		




  57
  57
  
    

  		




  58
  58
  
    
1;


  		












Auch abrufbar als:  Unified diff