[perl.git] branch blead, updated. v5.15.9-272-g31c32f2

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 <steve@fisharerojo.org>
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

• [perl.git] branch blead, updated. v5.15.9-272-g31c32f2 by Steve Peters