perl-Net-DNS-ignore-resolv_conf-open-errors.patch

   1 diff -ruN Net-DNS-0.83.orig/lib/Net/DNS/Resolver/UNIX.pm Net-DNS-0.83/lib/Net/DNS/Resolver/UNIX.pm
   2 --- Net-DNS-0.83.orig/lib/Net/DNS/Resolver/UNIX.pm      2015-02-26 16:01:55.000000000 +0100
   3 +++ Net-DNS-0.83/lib/Net/DNS/Resolver/UNIX.pm   2015-03-06 12:37:21.217583476 +0100
   4 @@ -32,7 +32,17 @@
   5  sub init {
   6         my $defaults = shift->defaults;
   7
   8 +       eval {
   9         $defaults->read_config_file($resolv_conf) if -f $resolv_conf && -r _;
  10 +       };
  11 +       if ( $@ ) {
  12 +               if ( $@ =~ /^Could not open / ) {
  13 +                       # we ignore this problem
  14 +                       #warn "$@";
  15 +               } else {
  16 +                       die $@;
  17 +               }
  18 +       }
  19
  20         $defaults->domain( _untaint $defaults->domain );        # untaint config values
  21         $defaults->searchlist( _untaint $defaults->searchlist );