summaryrefslogtreecommitdiff
path: root/lib/Cwd.pm
diff options
context:
space:
mode:
authorAndy Dougherty <doughera@lafcol.lafayette.edu>1995-02-21 01:14:24 +0000
committerAndy Dougherty <doughera@lafcol.lafayette.edu>1995-02-21 01:14:24 +0000
commit40000a8c37c35cc00114329ca0add46bca36a0ec (patch)
tree900a06b8157172e6f7a69446e5e2d10eb27fada7 /lib/Cwd.pm
parentfed7345c45910a20f6865d6a2f8978d09b352f41 (diff)
downloadperl-40000a8c37c35cc00114329ca0add46bca36a0ec.tar.gz
perl5.000 patch.0l: MakeMaker 4.085 and upgrade Configure to dist3 PL 51.
Here's what's new: Configure Generated by metaconfig PL 51. Correctly set ./mips on a MIPS system. Improved (we hope) handling of $archname. MANIFEST MANIFEST.new Made .SH files out of h2xs and makeaperl so that they get the correct path-to-perl at the top. Makefile.SH Propagate $(perllib) to extensions. U/dist3_051.patches Two patches to apply on top of metaconfig PL 51. I've sent them off for inclusion in the next metaconfig update. config_h.SH config.H Regenerated. Only the order of elements has changed. ext/DB_File/Makefile.PL ext/GDBM_File/Makefile.PL ext/NDBM_File/Makefile.PL Add -L/usr/local/lib to LIBS variable. ext/POSIX/POSIX.xs Place #ifdef around FD_CLOEXEC (needed for Apollo). ext/SDBM_File/sdbm/Makefile.PL Simplified, thanks to MakeMaker enhancements. ext/util/make_ext Pass through $(perllib) argument for cflags. h2xs.SH Changed from h2xs to h2xs.SH. Now finds correct path to perl. hints/next_3_2.sh Updated for hppa. hints/solaris_2.sh Remove potentially problematic -lmalloc from $libswanted. hints/unicos.sh Look in /usr/include/rpcsvc for dbm.h. installperl Install h2xs. lib/Cwd.pm Use 'my' variable to avoid clobbering $_. lib/ExtUtils/MakeMaker.pm Upgraded from 4.06 to 4.085. Lots of documentation improvements. EXE_FILES to refer to an array of executable files to install. Reduce chatter during build process. Don't count a useful -L/path option as a successful search for a particular library. Cleanup handling of aix external symbols. Create/update perllocal.pod to indicate what we've done. makeaperl.SH Changed from makeaperl to makeaperl.SH. Now finds correct path to perl. x2p/util.c Delete unused setenv() and envix() functions. x2p/util.h Delete unused setenv() and envix() prototypes. vms/config.vms Define I_SYS_STAT and I_SYS_TYPES.
Diffstat (limited to 'lib/Cwd.pm')
-rw-r--r--lib/Cwd.pm13
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 9aa57ecad4..b27e088847 100644
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -85,22 +85,23 @@ sub fastcwd {
($cdev, $cino) = stat('.');
for (;;) {
+ my $direntry;
($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 '..';
+ $direntry = readdir(DIR);
+ next if $direntry eq '.';
+ next if $direntry eq '..';
- last unless defined;
- ($tdev, $tino) = lstat($_);
+ last unless defined $direntry;
+ ($tdev, $tino) = lstat($direntry);
last unless $tdev != $odev || $tino != $oino;
}
closedir(DIR);
- unshift(@path, $_);
+ unshift(@path, $direntry);
}
chdir($path = '/' . join('/', @path));
$path;