view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  [General]
  - Upload blunder. I meant to upload this as 0.09002_01, but I forgot to
    rename the file. I don't wish for 0.09002 to be a general release, so
    heres' 0.09003_01 with no code changes.

0.09002_01 Thu Nov 08 2007 [rev 253]
  [General]
  - DNS will not be resolved by Gungho if you do one of the following:
    * specify dns => { disable => 1 } in your config
    * specify client => { proxy => ... } in your config (POE engine only)
    * specify HTTP_PROXY in the environment (POE engine only)

  [Tests]
  - Add more tests

0.09001 Fri Nov 02 2007 [rev 248]
  [General]
  - No code changes
  - Update to Module::Install 0.68

0.09000 Tue Oct 30 2007 [rev 247]

lib/Gungho/Engine/POE.pm  view on Meta::CPAN

    }

    # Starting from 0.09002, we accept that there are environments where
    # DNS resolution is NOT necessary. This turns out to be a problem when
    # going through, for example, a misconfigured proxy.
    #
    # Here, we detect if one of the following is true:
    #   1) The user has explicitly disable DNS resolution via dns.disable = 1
    #   2) The user has requested the use of a proxy via engine.client.proxy
    #   3) The user has implicitly requested the use of a proxy via
    #      $ENV{HTTP_PROXY}
    my $dns_config = delete $config{dns} || {};
    unless ($dns_config->{disable} || $client_config->{Proxy} || $client_config->{proxy} || $ENV{HTTP_PROXY}) {
        foreach my $key (keys %$dns_config) {
            if ($key =~ /^[a-z]/) { # ah, need to make this CamelCase
                my $camel = ucfirst($key);
                $camel =~ s/_(\w)/uc($1)/ge;
                $dns_config->{$camel} = delete $dns_config->{$key};
            }
        }
        my $resolver = POE::Component::Client::DNS->spawn(
            %$dns_config,
            Alias => &DnsResolverAlias,