File::Copy Pod

[perl5.git] / lib / hostname.pl

diff --git a/lib/hostname.pl b/lib/hostname.pl
index 5394c6e..63eea8f 100644 (file)
--- a/lib/hostname.pl
+++ b/lib/hostname.pl
@@ -1,5 +1,13 @@
 # From: asherman@fmrco.com (Aaron Sherman)
-
+#
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+#
+# In particular, this should not be used as an example of modern Perl
+# programming techniques.
+#
+# Suggested alternative: Sys::Hostname
+#
 sub hostname
 {
        local(*P,@tmp,$hostname,$_);