URI-1.53 test fail in UK

If I run the tests for URI-1.53 on a host whose FQDN ends in .uk, one of
the heuristic tests fails.

        $ENV{LC_ALL} = "C";
        undef $URI::Heuristic::MY_COUNTRY;
        print "not " unless uf_urlstr("perl/camel.gif") =~ m,^http://www\.perl\.(com|org)/camel\.gif$,;
        print "ok 7\n";

uf_urlstr calls MY_COUNTRY(), which (in the absence of other clues)
uses the local host name. If that ends in .uk, uf_urlstr() returns
http://www.perl.co.uk/camel.gif so the test fails.

Tony.
-- 
f.anthony.n.finch  <[email protected]>  http://dotat.at/
GERMAN BIGHT HUMBER: SOUTHWEST 5 TO 7. MODERATE OR ROUGH. SQUALLY SHOWERS.
MODERATE OR GOOD.