Patch for 'perldoc -f'

private-msgid: 199704061732.TAA00353@bergen.sn.no

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 7febd01..feb1366 100644 (file)
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -289,7 +289,7 @@ if ($opt_f) {
           print @pod;
        }
    } else {
-       die "No documentation for perl function `$func' found\n";
+       die "No documentation for perl function `$opt_f' found\n";
    }
    exit;
 }