diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
| commit | fe14fcc35f78a371a174a1d14256c2f35ae4262b (patch) | |
| tree | d472cb1055c47b9701cb0840969aacdbdbc9354a /lib/look.pl | |
| parent | 27e2fb84680b9cc1db17238d5bf10b97626f477f (diff) | |
| download | perl-fe14fcc35f78a371a174a1d14256c2f35ae4262b.tar.gz | |
perl 4.0.00: (no release announcement available)perl-4.0.00
So far, 4.0 is still a beta test version. For the last production
version, look in pub/perl.3.0/kits@44.
Diffstat (limited to 'lib/look.pl')
| -rw-r--r-- | lib/look.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/look.pl b/lib/look.pl index 6eef43983b..4c14e64727 100644 --- a/lib/look.pl +++ b/lib/look.pl @@ -4,7 +4,7 @@ ;# (stringwise) to $key. Pass flags for dictionary order and case folding. sub look { - local(*FH,$key,$fold) = @_; + local(*FH,$key,$dict,$fold) = @_; local($max,$min,$mid,$_); local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, $blksize,$blocks) = stat(FH); |