1 files changed, 0 insertions, 43 deletions
diff --git a/contrib/perl5/lib/fastcwd.pl b/contrib/perl5/lib/fastcwd.pl
deleted file mode 100644
index ecd87c8..0000000
--- a/contrib/perl5/lib/fastcwd.pl
+++ /dev/null
@@ -1,43 +0,0 @@
-# By John Bazik
-#
-# 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: 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;