On Tue, Feb 16, 1999 at 04:47:20PM -0500, Chris Nandor wrote: } At 16.34 -0500 1999.02.16, Christian Schaller wrote: } >At 2:29 PM -0500 2/16/99, Chris Nandor wrote: } } >Hm. Well, both machines have real names in real DNSes, though you seem } >to have hit the problem on the head regardless. Sure enough, when I } >looked at the program that was executing without delay (the one in which } >I use Net::SMTP directly, not Mail::Internet), I found that I'd been } >supplying the Hello parameter. If I comment it out, there's the delay } >again. } > } >So it really does seem to be a DNS lookup that's the problem. } > } >># fail. So I put this on line 218 of Net::Domain 2.09: } >># } >># return $fqdn = $host if ($host =~ /\./ && $host =~ /^[\d.]+$/); } > } >I put that in as you suggested, on line 218 of Net::Domain 2.09. It } >didn't seem to help matters, though. } } Right, if the machine actually has a name and DNS lookup problems, this } won't help anything, since this tests to see if a name has only numbers and } dots in it. } } I don't know why you'd be having the problems, but you will hit them any } time you try to use hostfqdn or domainname in Net::Domain. This needs } looking into. I'll take a look and provide a patch to Graham. After a quick look, there's a lot of stuff that's useless to try under MacPerl, so it probably shouldn't be. In fact, it looks like if the MacOS part of hostname is changed slightly to: elsif ($^O eq 'MacOS') { chomp ($host = `hostname`); $fqdn = $host; ($host,$domain) = $fqdn =~ /^([^\.]+)\.(.*)$/; } that this should bypass all of the messing around in domainname. However, I don't know if anyone has any scripts that rely on hostname returning the fqdn. } } -- } Chris Nandor mailto:pudge@pobox.com http://pudge.net/ } %PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6']) } } ***** Want to unsubscribe from this list? } ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch } } -- Paul Schinder schinder@pobox.com ***** Want to unsubscribe from this list? ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch