Time::Local in blead has diverged from CPAN. Update the version number to a dev release
[perl.git] / lib / hostname.pl
1 # From: asherman@fmrco.com (Aaron Sherman)
2 #
3 # This library is no longer being maintained, and is included for backward
4 # compatibility with Perl 4 programs which may require it.
5 # This legacy library is deprecated and will be removed in a future
6 # release of perl.
7 #
8 # In particular, this should not be used as an example of modern Perl
9 # programming techniques.
10 #
11 # Suggested alternative: Sys::Hostname
12
13 warn( "The 'hostname.pl' legacy library is deprecated and will be"
14       . " removed in the next major release of perl. Please use the"
15       . " Sys::Hostname module instead." );
16
17 sub hostname
18 {
19         local(*P,@tmp,$hostname,$_);
20         if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
21         {
22                 chop($hostname = $tmp[$#tmp]);
23         }
24         elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
25         {
26                 chop($hostname = $tmp[$#tmp]);
27         }
28         else
29         {
30                 die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
31         }
32         @tmp = ();
33         close P; # Just in case we failed in an odd spot....
34         $hostname;
35 }
36
37 1;