revdepth.pl 488 B

12345678910111213141516171819202122
  1. #! /usr/local/bin/perl
  2. #
  3. # BEGIN COPYRIGHT BLOCK
  4. # Copyright (C) 2001 Sun Microsystems, Inc. Used by permission.
  5. # Copyright (C) 2005 Red Hat, Inc.
  6. # All rights reserved.
  7. # END COPYRIGHT BLOCK
  8. #
  9. unshift(@INC, '/usr/lib/perl');
  10. unshift(@INC, '/usr/local/lib/perl');
  11. require "fastcwd.pl";
  12. $cur = &fastcwd;
  13. chdir($ARGV[0]);
  14. $newcur = &fastcwd;
  15. $newcurlen = length($newcur);
  16. # Skip common separating / unless $newcur is "/"
  17. $cur = substr($cur, $newcurlen + ($newcurlen > 1));
  18. print $cur;