home *** CD-ROM | disk | FTP | other *** search
- # vi:si:ts=4:sw=4
- # Implements popd using a system Variable (DIRSTACK) to store the stack.
-
- die "Usage: popd\n" unless ($#ARGV == -1);
-
- @dirs = split(' ', $ENV{"DIRSTACK"});
- die "Directory stack empty\n" unless ($#dirs >= 0);
-
- $_ = shift(@dirs);
- system("%dir $_");
-
- $dirs = join(' ', @dirs);
- $dirs =~ s/</|</g;
- if ($dirs eq "")
- {
- system("Unset DIRSTACK");
- }
- else
- {
- system("Set DIRSTACK $dirs");
- }
-