Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix the default site harder

  • Loading branch information...
commit 2f65d8d9ef70991f1513a9fdc7aa7d663e759706 1 parent 9cae516
@dormando dormando authored
Showing with 3 additions and 2 deletions.
  1. +3 −2 contrib/perlbal-check
View
5 contrib/perlbal-check
@@ -79,8 +79,9 @@ sub parse_config {
my $c = shift;
my $o = shift;
- if (exists $c->{sitedefault} && !$o->{site}) {
- $o->{site} = delete $c->{sitedefault};
+ if (exists $c->{sitedefault}) {
+ my $site = delete $c->{sitedefault};
+ $o->{site} = $site unless $o->{site};
}
for my $site (keys %$c) {
Please sign in to comment.
Something went wrong with that request. Please try again.