@ISA = qw(Exporter);
@EXPORT_OK = qw(hostname hostdomain hostfqdn domainname);
-$VERSION = "2.19"; # $Id: //depot/libnet/Net/Domain.pm#21 $
+$VERSION = "2.19_01"; # $Id: //depot/libnet/Net/Domain.pm#21 $
my($host,$domain,$fqdn) = (undef,undef,undef);
=head1 SYNOPSIS
- use Net::Domain qw(hostname hostfqdn hostdomain);
+ use Net::Domain qw(hostname hostfqdn hostdomain domainname);
=head1 DESCRIPTION
Identify and return the FQDN of the current host.
+=item domainname ()
+
+An alias for hostfqdn ().
+
=item hostname ()
Returns the smallest part of the FQDN which can be used to identify the host.