Remove deprecated Perl 4 core libraries

1 files changed, 0 insertions, 47 deletions

diff --git a/lib/fastcwd.pl b/lib/fastcwd.pl
deleted file mode 100644
index 70007a1001..0000000000
--- a/lib/fastcwd.pl
+++ /dev/null
@@ -1,47 +0,0 @@
-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
-
-# By John Bazik
-#
-# This library is no longer being maintained, and is included for backward
-# compatibility with Perl 4 programs which may require it.
-# This legacy library is deprecated and will be removed in a future
-# release of perl.
-#
-# In particular, this should not be used as an example of modern Perl
-# programming techniques.
-#
-# Suggested alternative: Cwd
-
-# Usage: $cwd = &fastcwd;
-#
-# This is a faster version of getcwd.  It's also more dangerous because
-# you might chdir out of a directory that you can't chdir back into.
-
-sub fastcwd {
-	local($odev, $oino, $cdev, $cino, $tdev, $tino);
-	local(@path, $path);
-	local(*DIR);
-
-	($cdev, $cino) = stat('.');
-	for (;;) {
-		($odev, $oino) = ($cdev, $cino);
-		chdir('..');
-		($cdev, $cino) = stat('.');
-		last if $odev == $cdev && $oino == $cino;
-		opendir(DIR, '.');
-		for (;;) {
-			$_ = readdir(DIR);
-			next if $_ eq '.';
-			next if $_ eq '..';
-
-			last unless $_;
-			($tdev, $tino) = lstat($_);
-			last unless $tdev != $odev || $tino != $oino;
-		}
-		closedir(DIR);
-		unshift(@path, $_);
-	}
-	chdir($path = '/' . join('/', @path));
-	$path;
-}
-1;