removed fastcwd

stow.in

@@ -518,42 +518,6 @@ sub version {
   exit(0);
 }
 
-# This is from Perl 4's fastcwd.pl, by John Bazik.
-#
-# 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;
-}
-
 # Local variables:
 # mode: perl
 # End: