Neil Parker wrote:
> if (/inet addr:([-.0-9]+)/ and not $1 =~ /^127\./) {
> $result = $1 if $result eq "127.0.0.1";
Thank you for noticing the descriptor leak. I am, like, *SO* embarassed. (-:
The loopback address is actually a /8 block of addresses, not a single
address. (Most people don't know this, and I didn't until last year.)
It is possible, though uncommon, to bind the loopback interface to
addresses other than 127.0.0.1. So checking for $result =~ /^127\./
is better than $result eq '127.0.0.1'.
Not that it matters to Tim...
--
Bob Miller K<bob>
kbobsoft software consulting
http://kbobsoft.com [EMAIL PROTECTED]
_______________________________________________
Eug-LUG mailing list
[EMAIL PROTECTED]
http://mailman.efn.org/cgi-bin/listinfo/eug-lug
