Advertisement
Guest User

Untitled

a guest
Aug 20th, 2019
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. @@ -8753,9 +8753,14 @@ sub config {
  2. $SQL = 'UPDATE bucardo.bucardo_config SET setting = ? WHERE name = ?';
  3. $sth = $dbh->prepare($SQL);
  4.  
  5. + my $allow_mixed_case_config = {
  6. + log_timer_format => 1,
  7. + };
  8. +
  9. for my $noun (@nouns) {
  10. $noun =~ /(\w+)=(.+)/ or die $setusage;
  11. - my ($setting,$val) = (lc $1,$2);
  12. + my $setting = lc $1;
  13. + my $val = $allow_mixed_case_config->{$setting} ? $2 : lc $2;
  14.  
  15. if (! exists $config->{$setting}) {
  16. die qq{Unknown setting "$setting"\n};
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement