perl 4.0.00: (no release announcement available)

[p5sagit/p5-mst-13.2.git] / lib / look.pl

diff --git a/lib/look.pl b/lib/look.pl
index 6eef439..4c14e64 100644 (file)
--- 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);