Browse files

fix site selection in perlbal-check

was stuck to the default.
  • Loading branch information...
1 parent eb94915 commit 9cae516fbb93c212e152c4a1b626587a1336d090 @dormando dormando committed Jan 27, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 contrib/perlbal-check
View
4 contrib/perlbal-check
@@ -79,8 +79,8 @@ sub parse_config {
my $c = shift;
my $o = shift;
- if (exists $c->{sitedefault}) {
- $o{site} = delete $c->{sitedefault};
+ if (exists $c->{sitedefault} && !$o->{site}) {
+ $o->{site} = delete $c->{sitedefault};
}
for my $site (keys %$c) {

0 comments on commit 9cae516

Please sign in to comment.