Skip to content

Synch Pod-Simple-3.47 into blead #23319

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: blead
Choose a base branch
from
Open

Synch Pod-Simple-3.47 into blead #23319

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions MANIFEST
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1943,6 +1943,8 @@ cpan/Pod-Simple/t/fcodes.t Pod::Simple test file
cpan/Pod-Simple/t/fcodes_e.t Pod::Simple test file
cpan/Pod-Simple/t/fcodes_l.t Pod::Simple test file
cpan/Pod-Simple/t/fcodes_s.t Pod::Simple test file
cpan/Pod-Simple/t/filter.t Pod-Simple
cpan/Pod-Simple/t/filter-html.t Pod-Simple
cpan/Pod-Simple/t/for.t Pod::Simple test file
cpan/Pod-Simple/t/fornot.t Pod::Simple test file
cpan/Pod-Simple/t/github_issue_79.t Test file related to Pod::Simple
Expand Down
4 changes: 2 additions & 2 deletions Porting/Maintainers.pl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -965,8 +965,8 @@ package Maintainers;
},

'Pod::Simple' => {
'DISTRIBUTION' => 'KHW/Pod-Simple-3.45.tar.gz',
'SYNCINFO' => 'jkeenan on Wed Aug 2 19:32:39 2023',
'DISTRIBUTION' => 'KHW/Pod-Simple-3.47.tar.gz',
'SYNCINFO' => 'jkeenan on Fri May 23 17:15:52 2025',
'FILES' => q[cpan/Pod-Simple],
'EXCLUDED' => [
qw{.ChangeLog.swp},
Expand Down
14 changes: 7 additions & 7 deletions cpan/Pod-Simple/lib/Pod/Simple.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -11,9 +11,9 @@ use Pod::Simple::TiedOutFH;
#use utf8;

our @ISA = ('Pod::Simple::BlackBox');
our $VERSION = '3.45';
our $VERSION = '3.47';

our @Known_formatting_codes = qw(I B C L E F S X Z);
our @Known_formatting_codes = qw(I B C L E F S U X Z);
our %Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
our @Known_directives = qw(head1 head2 head3 head4 head5 head6 item over back);
our %Known_directives = map(($_=>'Plain'), @Known_directives);
Expand All @@ -33,17 +33,17 @@ BEGIN {
die "MANY_LINES is too small (", MANY_LINES(), ")!\nAborting";
}
if(defined &UNICODE) { }
elsif($] >= 5.008) { *UNICODE = sub() {1} }
else { *UNICODE = sub() {''} }
elsif( do { no integer; "$]" >= 5.008 } ) { *UNICODE = sub() {1} }
else { *UNICODE = sub() {''} }
}
if(DEBUG > 2) {
print STDERR "# We are ", ASCII ? '' : 'not ', "in ASCII-land\n";
print STDERR "# We are under a Unicode-safe Perl.\n";
}

# The NO BREAK SPACE and SOFT HYHPEN are used in several submodules.
if ($] ge 5.007_003) { # On sufficiently modern Perls we can handle any
# character set
if ( do { no integer; "$]" >= 5.007_003 } ) { # On sufficiently modern Perls we can handle any
# character set
$Pod::Simple::nbsp = chr utf8::unicode_to_native(0xA0);
$Pod::Simple::shy = chr utf8::unicode_to_native(0xAD);
}
Expand Down Expand Up @@ -754,7 +754,7 @@ sub _remap_sequences {
ref($map->{$_}) ? join(",", @{$map->{$_}}) : $map->{$_}
),
sort keys %$map ),
("B~C~E~F~I~L~S~X~Z" eq join '~', sort keys %$map)
("B~C~E~F~I~L~S~U~X~Z" eq join '~', sort keys %$map)
? " (all normal)\n" : "\n"
;

Expand Down
26 changes: 19 additions & 7 deletions cpan/Pod-Simple/lib/Pod/Simple.pod
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,19 @@ Pod::Simple - framework for parsing Pod

=head1 SYNOPSIS

TODO
# using an existing formatter
use Pod::Simple::XHTML;
my $parser = Pod::Simple::XHTML->new;
$parser->parse_file('path/to/file.pod');

# creating a new formatter
package Pod::Simple::SomeFormatter;
use parent qw(Pod::Simple);
sub _handle_element_start {
my ($parser, $element_name, $attr_hash_r) = @_;
...
}
...

=head1 DESCRIPTION

Expand Down Expand Up @@ -256,7 +268,7 @@ effected.

=item C<< $parser->accept_code( @codes ) >>X<accept_code>

Alias for L<< accept_codes >>.
Alias for L<< accept_codes|/$parser->accept_codes( @codes ) >>.

=item C<< $parser->accept_codes( @codes ) >>X<accept_codes>

Expand Down Expand Up @@ -285,11 +297,11 @@ can be used to implement user-defined directives.

=item C<< $parser->accept_target( @targets ) >>X<accept_target>

Alias for L<< accept_targets >>.
Alias for L<< accept_targets|/$parser->accept_targets( @targets ) >>.

=item C<< $parser->accept_target_as_text( @targets ) >>X<accept_target_as_text>

Alias for L<< accept_targets_as_text >>.
Alias for L<< accept_targets_as_text|/$parser->accept_targets_as_text( @targets ) >>.

=item C<< $parser->accept_targets( @targets ) >>X<accept_targets>

Expand Down Expand Up @@ -339,23 +351,23 @@ Log an error that can't be ignored.

=item C<< $parser->unaccept_code( @codes ) >>X<unaccept_code>

Alias for L<< unaccept_codes >>.
Alias for L<< unaccept_codes|/$parser->unaccept_codes( @codes ) >>.

=item C<< $parser->unaccept_codes( @codes ) >>X<unaccept_codes>

Removes C<< @codes >> as valid codes for the parse.

=item C<< $parser->unaccept_directive( @directives ) >>X<unaccept_directive>

Alias for L<< unaccept_directives >>.
Alias for L<< unaccept_directives|/$parser->unaccept_directives( @directives ) >>.

=item C<< $parser->unaccept_directives( @directives ) >>X<unaccept_directives>

Removes C<< @directives >> as valid directives for the parse.

=item C<< $parser->unaccept_target( @targets ) >>X<unaccept_target>

Alias for L<< unaccept_targets >>.
Alias for L<< unaccept_targets|/$parser->unaccept_targets( @targets ) >>.

=item C<< $parser->unaccept_targets( @targets ) >>X<unaccept_targets>

Expand Down
Loading
Loading