diff options
| author | Steve Peters <steve@fisharerojo.org> | 2012-05-04 10:51:06 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2012-05-04 10:56:38 -0500 |
| commit | 31c32f21637b69ee05a82842c4a121907f0a8d4f (patch) | |
| tree | d26826b3f55be2308ce1c98091780dc7a48e1b43 /ext | |
| parent | b6646683566e99be17e2b4644b44663f440270ee (diff) | |
| download | perl-31c32f21637b69ee05a82842c4a121907f0a8d4f.tar.gz | |
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.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 4 | ||||
| -rw-r--r-- | 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 08d0274141..47b937abbb 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 79cd1647cb..9096523ed6 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__ |