In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ece9ad29e93f08cdb36e63f99da7ef1f49837e52?hp=3df5101b1783b3f7e6ff145a0a810c25c512f8c5>
- Log ----------------------------------------------------------------- commit ece9ad29e93f08cdb36e63f99da7ef1f49837e52 Author: Karl Williamson <pub...@khwilliamson.com> Date: Fri May 20 08:27:02 2011 -0600 podcheck.t: Fully qualify carp call from package M t/porting/podcheck.t commit 2497e1dfd128629c4e32897343c724889bf13b43 Author: Karl Williamson <pub...@khwilliamson.com> Date: Thu May 19 21:31:35 2011 -0600 podcheck.t: Deal properly with -1 counts These counts are for things like perltoc which are compendiums of other pods, and so contain any errors in those other pods, which should be output with the offending pod and not perltoc. By setting the counts of errors to a negative in the db, the message for perltoc is suppressed. But a message was getting improperly output with perltoc when the original pod got fixed. M t/porting/podcheck.t commit bd3f2f9401e14d1dfc000f7f6b0f188ea43461fa Author: Karl Williamson <pub...@khwilliamson.com> Date: Thu May 19 21:10:15 2011 -0600 utf8.c: revise comment M utf8.c ----------------------------------------------------------------------- Summary of changes: t/porting/podcheck.t | 3 ++- utf8.c | 5 +++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index 999bcb1..f343181 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -497,7 +497,7 @@ package My::Pod::Checker { # Extend Pod::Checker } } - carp("Couldn't extract line number from $message") if $message =~ /line \d+/; + Carp::carp("Couldn't extract line number from $message") if $message =~ /line \d+/; push @{$problems{$filename{$addr}}{$message}}, $opts; #push @{$problems{$self->get_filename}{$message}}, $opts; } @@ -1401,6 +1401,7 @@ foreach my $filename (@files) { foreach my $message ( sort keys %{$known_problems{$filename}}) { next if $problems{$filename}{$message}; next if ! $known_problems{$filename}{$message}; + next if $known_problems{$filename}{$message} < 0; # Preserve negs my $diagnostic = output_thanks($filename, $known_problems{$filename}{$message}, 0, $message); push @diagnostics, $diagnostic if $diagnostic; } diff --git a/utf8.c b/utf8.c index 2c15946..5f0e08c 100644 --- a/utf8.c +++ b/utf8.c @@ -2855,8 +2855,9 @@ Perl__swash_inversion_hash(pTHX_ SV* const swash) * express the capitalization, for example, of all consecutive * letters with a single line: 0061\t007A\t0041 This maps 0061 to * 0041, 0062 to 0042, etc. I (khw) have never understood 'none', - * and it's not documented, and perhaps not even currently used, - * but I copied the semantics from swash_get(), just in case */ + * and it's not documented; it appears to be used only in + * implementing tr//; I copied the semantics from swash_get(), just + * in case */ if (!none || val < none) { ++val; } -- Perl5 Master Repository