perl 5.000perl-5.000

[editor's note: this commit combines approximate 4 months of furious
releases of Andy Dougherty and Larry Wall - see pod/perlhist.pod for
details.  Andy notes that;
 
Alas neither my "Irwin AccuTrack" nor my DC 600A quarter-inch cartridge 
backup tapes from that era seem to be readable anymore.  I guess 13 years 
exceeds the shelf life for that backup technology :-(.
]

1 files changed, 26 insertions, 0 deletions

diff --git a/pod/modpods/Cwd.pod b/pod/modpods/Cwd.pod
new file mode 100644
index 0000000000..ac4e24f74d
--- /dev/null
+++ b/pod/modpods/Cwd.pod
@@ -0,0 +1,26 @@
+=head1 NAME
+
+getcwd - get pathname of current working directory
+
+=head1 SYNOPSIS
+
+    require Cwd;
+    $dir = Cwd::getcwd()'
+
+    use Cwd;
+    $dir = getcwd()'
+
+    use Cwd 'chdir';
+    chdir "/tmp";
+    print $ENV{'PWD'};
+
+=head1 DESCRIPTION
+
+The getcwd() function re-implements the getcwd(3) (or getwd(3)) functions
+in Perl.  If you ask to override your chdir() built-in function, then your
+PWD environment variable will be kept up to date.  (See
+L<perlsub/Overriding builtin functions>.)
+
+The fastgetcwd() function looks the same as getcwd(), but runs faster.
+It's also more dangerous because you might conceivably chdir() out of a
+directory that you can't chdir() back into.