diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-06-24 17:50:32 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-06-24 18:10:28 -0600 |
| commit | 8c791efdf6d1362652176763d4efc264fc4f3e4d (patch) | |
| tree | c8ae712e8d7d7e4d392f932e399e3a45bc4e0825 | |
| parent | e93a7aed5025e7a4a75183e849970644a7f6f868 (diff) | |
| download | perl-8c791efdf6d1362652176763d4efc264fc4f3e4d.tar.gz | |
podcheck.t: Re-enable --add_link
Commit 83ced756 broke the --add_link option to podcheck.t. Now fixed
| -rw-r--r-- | t/porting/podcheck.t | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index a0f56ae8f1..76944c6c28 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -566,7 +566,13 @@ if (($regen + $show_all + $show_counts + $add_link + $cpan_or_deltas ) > 1) { my $has_input_files = @files; -if ($has_input_files) { + +if ($add_link) { + if (! $has_input_files) { + croak "--add_link requires at least one module or man page reference"; + } +} +elsif ($has_input_files) { if ($regen || $show_counts || $do_upstream_cpan || $do_deltas) { croak "--regen, --counts, --deltas, and --cpan can't be used since using specific files"; } @@ -575,10 +581,6 @@ if ($has_input_files) { } } -if ($add_link && ! $has_input_files) { - croak "--add_link requires at least one module or man page reference"; -} - our %problems; # potential problems found in this run package My::Pod::Checker { # Extend Pod::Checker |