Changeset 2064

Show
Ignore:
Timestamp:
10/29/06 03:07:25
Author:
miyagawa
Message:

error checking

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/tld

    r1988 r2064  
    44use Net::Domain::TLD; 
    55 
    6 my $tld = shift
     6my $tld = shift or die "Usage: tld [ccTLD]\n"
    77print Net::Domain::TLD::tlds->{$tld} || "$tld not found.", "\n";