Skip Menu |

This queue is for tickets about the Net-DNS CPAN distribution.

Report information
The Basics
Id: 3848
Status: resolved
Priority: 0/
Queue: Net-DNS
People
Owner: rt-cpan [...] triv.org
Requestors: ron [...] savage.net.au
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Tue Sep 23 06:08:09 2003 Guest - Ticket created
Subject: Minor bug in Net::DNS::Resolver::Win32
I got 6 warnings like: Use of uninitialized value in concatenation (.) or string at C:/Perl/site/lib/Net/DNS/Resolver/Win32.pm line 42. during installation. Line 42 is: my $searchlist = "$domain "; I suggest changing line 37 from: my $domain = $keys{'Domain'}->[2] || $keys{'DhcpDomain'}->[2]; to: my $domain = $keys{'Domain'}->[2] || $keys{'DhcpDomain'}->[2] || ''; On my Win2k PC, Domain exists but has no value, and DhcpDomain does not exist.
  Wed Sep 24 18:38:59 2003 rt-cpan [...] triv.org - Taken
  Wed Sep 24 18:39:35 2003 rt-cpan [...] triv.org - Correspondence added
[guest - Tue Sep 23 06:08:09 2003]: Show quoted text
> I got 6 warnings like: > Use of uninitialized value in concatenation (.) or string at > C:/Perl/site/lib/Net/DNS/Resolver/Win32.pm line 42. > during installation. Line 42 is: > my $searchlist = "$domain "; > I suggest changing line 37 from: > my $domain = $keys{'Domain'}->[2] || $keys{'DhcpDomain'}->[2]; > to: > my $domain = $keys{'Domain'}->[2] || $keys{'DhcpDomain'}->[2] || ''; > On my Win2k PC, Domain exists but has no value, and DhcpDomain does > not exist.
Thanks, this will be in the 0.41 Net::DNS release. -- Chris Reinhardt ctriv@dyndns.org Systems Architect Dynamic DNS Network Services http://www.dyndns.org/
  Wed Sep 24 18:40:11 2003 rt-cpan [...] triv.org - Status changed from 'new' to 'resolved'