In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/31c32f21637b69ee05a82842c4a121907f0a8d4f?hp=b6646683566e99be17e2b4644b44663f440270ee>
- Log ----------------------------------------------------------------- commit 31c32f21637b69ee05a82842c4a121907f0a8d4f Author: Steve Peters <[email protected]> Date: Fri May 4 10:51:06 2012 -0500 Add --libpods back as a non-functional option to pod2html. When --libpods was removed, this broke backward compatiblility with existing uses. This change adds back the option, but warns that --libpods is no longer supported. ----------------------------------------------------------------------- Summary of changes: ext/Pod-Html/lib/Pod/Html.pm | 4 +++- ext/Pod-Html/t/feature.t | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index 08d0274..47b937a 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -483,7 +483,7 @@ sub parse_command_line { my ($opt_backlink,$opt_cachedir,$opt_css,$opt_flush,$opt_header, $opt_help,$opt_htmldir,$opt_htmlroot,$opt_index,$opt_infile, $opt_outfile,$opt_poderrors,$opt_podpath,$opt_podroot, - $opt_quiet,$opt_recurse,$opt_title,$opt_verbose); + $opt_quiet,$opt_recurse,$opt_title,$opt_verbose,$opt_libpods); unshift @ARGV, split ' ', $Config{pod2html} if $Config{pod2html}; my $result = GetOptions( @@ -497,6 +497,7 @@ sub parse_command_line { 'htmlroot=s' => \$opt_htmlroot, 'index!' => \$opt_index, 'infile=s' => \$opt_infile, + 'libpods=s' => \$opt_libpods, # deprecated 'outfile=s' => \$opt_outfile, 'poderrors!' => \$opt_poderrors, 'podpath=s' => \$opt_podpath, @@ -512,6 +513,7 @@ sub parse_command_line { $opt_help = ""; # just to make -w shut-up. @Podpath = split(":", $opt_podpath) if defined $opt_podpath; + warn "--libpods is no longer supported" if defined $opt_libpods; $Backlink = $opt_backlink if defined $opt_backlink; $Cachedir = _unixify($opt_cachedir) if defined $opt_cachedir; diff --git a/ext/Pod-Html/t/feature.t b/ext/Pod-Html/t/feature.t index 79cd164..9096523 100644 --- a/ext/Pod-Html/t/feature.t +++ b/ext/Pod-Html/t/feature.t @@ -21,7 +21,7 @@ convert_n_test("feature", "misc pod-html features", "--podroot=$cwd", "--title=a title", "--quiet", - + "--libpods=perlguts:perlootut", ); __DATA__ -- Perl5 Master Repository
