diff options
| author | Marc Green <marcgreen@cpan.org> | 2011-06-10 10:43:48 -0400 |
|---|---|---|
| committer | Marc Green <marcgreen@cpan.org> | 2011-10-31 13:26:40 -0400 |
| commit | c20b65d069e6172389bae24cec36195645978e28 (patch) | |
| tree | 80090c6794b855c789000f9875584dba9267dbfb /ext/Pod-Html/lib/Pod/Html.pm | |
| parent | 3b49d8d9ac841d8ec38ac2df0f97fa500363eec3 (diff) | |
| download | perl-c20b65d069e6172389bae24cec36195645978e28.tar.gz | |
Fix minor formatting
Diffstat (limited to 'ext/Pod-Html/lib/Pod/Html.pm')
| -rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm index bb63901805..c4a8445671 100644 --- a/ext/Pod-Html/lib/Pod/Html.pm +++ b/ext/Pod-Html/lib/Pod/Html.pm @@ -246,7 +246,7 @@ sub pod2html { # finds all pod modules/pages in podpath, stores in %Pages # --recurse is implemented in _save_page for now (its inefficient right now) - # (maybe subclass ::Search to implement instead) + # (maybe subclass ::Search to implement instead (then remove callback()) Pod::Simple::Search->new->inc(0)->verbose($Verbose) ->callback(\&_save_page)->survey(@Podpath); @@ -380,7 +380,7 @@ sub parse_command_line { unshift @ARGV, split ' ', $Config{pod2html} if $Config{pod2html}; my $result = GetOptions( - 'backlink!' => \$opt_backlink, + 'backlink!' => \$opt_backlink, 'css=s' => \$opt_css, 'help' => \$opt_help, 'header!' => \$opt_header, @@ -466,7 +466,7 @@ sub _save_page { # discard any pages that are below top level dir } - my ($file, $dir) = fileparse($modspec, qr/\.[^.]*/); #strip .ext + my ($file, $dir) = fileparse($modspec, qr/\.[^.]*/); # strip .ext $Pages{$modname} = $dir . $file; } |