diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-10-16 02:28:17 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-10-16 02:28:17 +0000 |
| commit | d9d8d8de9462d72f6b4520fc11dd84dbe2c8bf1d (patch) | |
| tree | 42dd9d991eecc159ab1e232be5f9941456228df0 /t/op.stat | |
| parent | c2ab57d4ffc80c0e2a9e968e66e52c289ac9ed45 (diff) | |
| download | perl-d9d8d8de9462d72f6b4520fc11dd84dbe2c8bf1d.tar.gz | |
perl 3.0 patch #32 patch #29, continued
See patch #29.
Diffstat (limited to 't/op.stat')
| -rw-r--r-- | t/op.stat | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1,6 +1,6 @@ #!./perl -# $Header: op.stat,v 3.0.1.4 90/08/13 22:31:36 lwall Locked $ +# $Header: op.stat,v 3.0.1.5 90/10/16 10:55:42 lwall Locked $ print "1..56\n"; @@ -97,7 +97,7 @@ $cnt = $uid = 0; die "Can't run op.stat test 35 without pwd working" unless $cwd; chdir '/usr/bin' || die "Can't cd to /usr/bin"; -while (<*>) { +while (defined($_ = <*>)) { $cnt++; $uid++ if -u; last if $uid && $uid < $cnt; |