This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In autodoc.pl, remove the unused parameters and functionality from walk_table().
authorNicholas Clark <nick@ccl4.org>
Fri, 17 Apr 2009 09:15:42 +0000 (10:15 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 17 Apr 2009 09:21:48 +0000 (10:21 +0100)
It seems that walk_table() was a direct copy from embed.pl back when autodoc.pl
was created by commit 94bdecf9800c3bee967274854f7adf2933ffd42b, and the "bonus
bits" were never refactored out.

autodoc.pl

index 25fabf0..0e8258f 100644 (file)
@@ -23,21 +23,6 @@ open IN, "embed.fnc" or die $!;
 # subroutine, printing the result
 sub walk_table (&@) {
     my $function = shift;
-    my $filename = shift || '-';
-    my $leader = shift;
-    my $trailer = shift;
-    my $F;
-    local *F;
-    if (ref $filename) {       # filehandle
-       $F = $filename;
-    }
-    else {
-       safer_unlink $filename;
-       $F = safer_open($filename);
-       binmode F;
-       $F = \*F;
-    }
-    print $F $leader if $leader;
     seek IN, 0, 0;             # so we may restart
     while (<IN>) {
        chomp;
@@ -55,11 +40,7 @@ sub walk_table (&@) {
            @args = split /\s*\|\s*/, $_;
        }
        s/\b(NN|NULLOK)\b\s+//g for @args;
-       print $F $function->(@args);
-    }
-    print $F $trailer if $trailer;
-    unless (ref $filename) {
-       close $F or die "Error closing $filename: $!";
+       $function->(@args);
     }
 }
 
@@ -208,8 +189,7 @@ walk_table {        # load documented functions into appropriate hash
            warn "no docs for $func\n" unless $seenfuncs{$func};
        }
     }
-    return "";
-} $doc;
+};
 
 for (sort keys %docfuncs) {
     # Have you used a full for apidoc or just a func name?