From f56e05005c751822074f0a22aa9a98d2eb189924 Mon Sep 17 00:00:00 2001
From: markm <markm@FreeBSD.org>
Date: Thu, 16 May 2002 10:09:28 +0000
Subject: Perl is no longer in base. Long live the port!

---
 contrib/perl5/lib/hostname.pl | 31 -------------------------------
 1 file changed, 31 deletions(-)
 delete mode 100644 contrib/perl5/lib/hostname.pl

(limited to 'contrib/perl5/lib/hostname.pl')

diff --git a/contrib/perl5/lib/hostname.pl b/contrib/perl5/lib/hostname.pl
deleted file mode 100644
index 63eea8f..0000000
--- a/contrib/perl5/lib/hostname.pl
+++ /dev/null
@@ -1,31 +0,0 @@
-# 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,$_);
-	if (open(P,"hostname 2>&1 |") && (@tmp = <P>) && close(P))
-	{
-		chop($hostname = $tmp[$#tmp]);
-	}
-	elsif (open(P,"uname -n 2>&1 |") && (@tmp = <P>) && close(P))
-	{
-		chop($hostname = $tmp[$#tmp]);
-	}
-	else
-	{
-		die "$0: Cannot get hostname from 'hostname' or 'uname -n'\n";
-	}
-	@tmp = ();
-	close P; # Just in case we failed in an odd spot....
-	$hostname;
-}
-
-1;
-- 
cgit v1.1