This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
autodoc.pl: Refactor slightly
authorKarl Williamson <khw@cpan.org>
Tue, 28 May 2019 16:35:57 +0000 (10:35 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 31 May 2019 00:13:29 +0000 (18:13 -0600)
This breaks a chain of 'elsif' lines so that they are all now part of an
'else' from the first 'if'.  This is in preparation for a later commit.

autodoc.pl

index a31192e..781fb6f 100644 (file)
@@ -211,10 +211,11 @@ removed without notice.\n\n$docs" if $flags =~ /x/;
 
     if ($flags =~ /U/) { # no usage
        # nothing
-    } elsif ($flags =~ /s/) { # semicolon ("dTHR;")
-       print $fh "\t\t$name;\n\n";
+    } else {
+        if ($flags =~ /s/) { # semicolon ("dTHR;")
+       print $fh "\t\t$name;";
     } elsif ($flags =~ /n/) { # no args
-       print $fh "\t$ret\t$name\n\n";
+       print $fh "\t$ret\t$name";
     } else { # full usage
        my $p            = $flags =~ /o/; # no #define foo Perl_foo
        my $n            = "Perl_"x$p . $name;
@@ -258,7 +259,9 @@ removed without notice.\n\n$docs" if $flags =~ /x/;
                   . shift @args;
        }
        if ($long_args) { print $fh "\n", substr $indent, 0, -4 }
-       print $fh ")\n\n";
+       print $fh ")";
+    }
+    print $fh "\n\n";
     }
     print $fh "=for hackers\nFound in file $file\n\n";
 }