[perl.git] branch blead, updated. v5.13.9-237-g44de791
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/44de791afe7466121840ad5d8e4a0b7694f4c34e?hp=377157fd699f058398b744427e3a6b43c71637ef - Log - commit 44de791afe7466121840ad5d8e4a0b7694f4c34e Author: David Golden dagol...@cpan.org Date: Fri Feb 4 02:51:14 2011 -0500 Updated HTTP::Tiny to CPAN version 0.010 Includes VMS test fixes by Craig Berry --- Summary of changes: Porting/Maintainers.pl |2 +- cpan/HTTP-Tiny/lib/HTTP/Tiny.pm | 21 +++-- cpan/HTTP-Tiny/t/110_mirror.t |5 +++-- cpan/HTTP-Tiny/t/Util.pm|8 ++-- pod/perldelta.pod |4 5 files changed, 33 insertions(+), 7 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 71fd082..ec0c275 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -768,7 +768,7 @@ use File::Glob qw(:case); 'HTTP::Tiny' = { 'MAINTAINER'= 'dagolden', - 'DISTRIBUTION' = 'DAGOLDEN/HTTP-Tiny-0.009.tar.gz', + 'DISTRIBUTION' = 'DAGOLDEN/HTTP-Tiny-0.010.tar.gz', 'FILES' = q[cpan/HTTP-Tiny], 'EXCLUDED' = [ 't/200_live.t', diff --git a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm index 4686fe8..55912ff 100644 --- a/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm +++ b/cpan/HTTP-Tiny/lib/HTTP/Tiny.pm @@ -9,7 +9,7 @@ # package HTTP::Tiny; BEGIN { - $HTTP::Tiny::VERSION = '0.009'; + $HTTP::Tiny::VERSION = '0.010'; } use strict; use warnings; @@ -759,7 +759,7 @@ HTTP::Tiny - A small, simple, correct HTTP/1.1 client =head1 VERSION -version 0.009 +version 0.010 =head1 SYNOPSIS @@ -1051,6 +1051,23 @@ LLWP::UserAgent =back +=for :stopwords CPAN AnnoCPAN RT CPANTS Kwalitee diff IRC + +=head1 SUPPORT + +=head2 Bugs / Feature Requests + +Please report any bugs or feature requests on the bugtracker website Lhttp://rt.cpan.org/Public/Dist/Display.html?Name=HTTP-Tiny or by email to 'bug-http-tiny at rt.cpan.org'. I will be notified, a ... [83 chars truncated] + +=head2 Source Code + +This is open source software. The code repository is available for +public review and contribution under the terms of the license. + +Lhttp://github.com/dagolden/p5-http-tiny/tree + + git clone git://github.com/dagolden/p5-http-tiny.git + =head1 AUTHORS =over 4 diff --git a/cpan/HTTP-Tiny/t/110_mirror.t b/cpan/HTTP-Tiny/t/110_mirror.t index 34e0c90..7f10ff1 100644 --- a/cpan/HTTP-Tiny/t/110_mirror.t +++ b/cpan/HTTP-Tiny/t/110_mirror.t @@ -17,11 +17,12 @@ use t::Utilqw[tmpfile rewind slurp monkey_patch dir_list parse_case set_socket_source sort_headers $CRLF $LF]; use HTTP::Tiny; use File::Temp qw/tempdir/; +use File::Spec; BEGIN { monkey_patch() } my $tempdir = tempdir( TMPDIR = 1, CLEANUP = 1 ); -my $tempfile = $tempdir . /tempfile.txt; +my $tempfile = File::Spec-catfile( $tempdir, tempfile.txt ); my $known_epoch = 760233600; my $day = 24*3600; @@ -32,7 +33,7 @@ my %timestamp = ( ); for my $file ( dir_list(t/cases, qr/^mirror/ ) ) { - unlink $tempfile; + 1 while unlink $tempfile; my $data = do { local (@ARGV,$/) = $file; }; my ($params, $expect_req, $give_res) = split /--+\n/, $data; # cleanup source data diff --git a/cpan/HTTP-Tiny/t/Util.pm b/cpan/HTTP-Tiny/t/Util.pm index f6c5f32..d049487 100644 --- a/cpan/HTTP-Tiny/t/Util.pm +++ b/cpan/HTTP-Tiny/t/Util.pm @@ -11,7 +11,7 @@ package t::Util; use strict; use warnings; -use IO::File q[SEEK_SET]; +use IO::File qw(SEEK_SET SEEK_END); use IO::Dir; BEGIN { @@ -72,12 +72,16 @@ sub dir_list { sub slurp (*) { my ($fh) = @_; +seek($fh, 0, SEEK_END) + || die(qq/Couldn't navigate to EOF on file handle: '$!'/); + +my $exp = tell($fh); + rewind($fh); binmode($fh) || die(qq/Couldn't binmode file handle: '$!'/); -my $exp = -s $fh; my $buf = do { local $/; $fh }; my $got = length $buf; diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 6d2fe1d..b52960a 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -134,6 +134,10 @@ CIPC::Cmd has been upgraded from version 0.68 to 0.70 =item * +CHTTP::Tiny has been upgraded from version 0.009 to 0.010 + +=item * + CModule::Build has been upgraded from version 0.3607 to 0.3622. A notable change is the deprecation of several modules. -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-238-g7319fd7
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/7319fd7fc0619d07356aa598ec397e9bab34167f?hp=44de791afe7466121840ad5d8e4a0b7694f4c34e - Log - commit 7319fd7fc0619d07356aa598ec397e9bab34167f Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 10:42:28 2011 +0100 Convert Pod::Html to lexical file handles. This fixes the regression test failures for Module::Build on an NFS filesystem. What had been happening was that 3 of Module::Build's tests would invoke Pod::Html::pod2html via ACTION_html(). The invocation is inside an eval, and is not treated as fatal if it fails. It fails if the install tree doesn't yet exist, and it doesn't explicitly close the file handle. With package file handles, this meant that the file was still open when the test attempted to recursively delete the temporary directory tree, and an NFS file system won't delete an open file (it will reappear under a different, hidden, filename). Consequently the directory tree was not empty, cleanup failed, and the test failed. Switching to lexical file handles causes the file to automatically be closed when it goes out of scope due to the thrown exception. This problem is not going to occur for anyone building Module::Build on NFS against an installed perl. --- Summary of changes: ext/Pod-Html/Html.pm | 173 ++ 1 files changed, 90 insertions(+), 83 deletions(-) diff --git a/ext/Pod-Html/Html.pm b/ext/Pod-Html/Html.pm index 6174dd7..83e825c 100644 --- a/ext/Pod-Html/Html.pm +++ b/ext/Pod-Html/Html.pm @@ -3,7 +3,7 @@ use strict; require Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = 1.09; +$VERSION = 1.10; @ISA = qw(Exporter); @EXPORT = qw(pod2html htmlify); @EXPORT_OK = qw(anchorify); @@ -360,14 +360,17 @@ sub pod2html { $Backlink = html_escape($Backlink) if defined $Backlink; # set some variables to their default values if necessary -local *POD; +my $pod; unless (@ARGV $ARGV[0]) { - $Podfile = - unless $Podfile;# stdin - open(POD, $Podfile) - || die $0: cannot open $Podfile file for input: $!\n; + if ($Podfile) { + open $pod, '', $Podfile + or die $0: cannot open $Podfile file for input: $!\n; + } else { + open $pod, '-'; + } } else { $Podfile = $ARGV[0]; # XXX: might be more filenames - *POD = *ARGV; + $pod = *ARGV; } $Htmlfile = - unless $Htmlfile; # stdout $Htmlroot = if $Htmlroot eq /;# so we don't get a // @@ -388,8 +391,8 @@ sub pod2html { # read the pod a paragraph at a time warn Scanning for sections in input file(s)\n if $Verbose; $/ = ; -my @poddata = POD; -close(POD); +my @poddata = $pod; +close $pod; # be eol agnostic for (@poddata) { @@ -419,8 +422,8 @@ sub pod2html { } # open the output file -open(HTML, $Htmlfile) - || die $0: cannot open $Htmlfile file for output: $!\n; +open my $html, '', $Htmlfile + or die $0: cannot open $Htmlfile file for output: $!\n; # put a title in the HTML file if one wasn't specified if ($Title eq '') { @@ -474,7 +477,7 @@ sub pod2html { /table END_OF_BLOCK -print HTML END_OF_HEAD; +print $html END_OF_HEAD; ?xml version=1.0 ? !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Strict//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd; html xmlns=http://www.w3.org/1999/xhtml; @@ -506,7 +509,7 @@ END_OF_HEAD $index = qq(!--\n$index\n--\n); } -print HTML END_OF_INDEX; +print $html END_OF_INDEX; !-- INDEX BEGIN -- div name=index @@ -529,7 +532,7 @@ END_OF_INDEX $after_item = 0; $_ = $1; if (/^=begin\s+(\S+)\s*(.*)/si) {# =begin - process_begin($1, $2); + process_begin($html, $1, $2); } elsif (/^=end\s+(\S+)\s*(.*)/si) {# =end process_end($1, $2); } elsif (/^=cut/) { # =cut @@ -540,16 +543,16 @@ END_OF_INDEX next if @Begin_Stack $Begin_Stack[-1] ne 'html'; if (/^=(head[1-6])\s+(.*\S)/s) {# =head[1-6] heading - process_head( $1, $2, $Doindex $index ); + process_head( $html, $1, $2, $Doindex $index ); } elsif (/^=item\s*(.*\S)?/sm) {# =item text - process_item( $1 ); + process_item( $html, $1 ); $after_item = 1; } elsif (/^=over\s*(.*)/) { # =over N process_over(); } elsif (/^=back/) {# =back - process_back(); +
[perl.git] branch blead, updated. v5.13.9-239-gb2d32ff
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/b2d32ffb25539e36e18d4e4d11483f75d2b53b18?hp=7319fd7fc0619d07356aa598ec397e9bab34167f - Log - commit b2d32ffb25539e36e18d4e4d11483f75d2b53b18 Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 10:29:53 2011 + Remove non-working and hence unused features from B's OptreeCheck test code. 'retry' is no use without 'debug', and 'debug' doesn't work (doesn't enable regexp debugging output for the retry) because Cuse re 'debug' is lexically scoped, so can't be applied at runtime after the event to an already compiled regexp. (And the obvious fix of turning it on for compile time isn't working for some reason, so it's not trivial to fix this unused feature. Version control will preserve the code if anyone wants to investigate, fix and resurrect it.) --- Summary of changes: ext/B/t/OptreeCheck.pm | 36 +++- ext/B/t/optree_check.t |1 - 2 files changed, 3 insertions(+), 34 deletions(-) diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm index ec4d919..50ea85e 100644 --- a/ext/B/t/OptreeCheck.pm +++ b/ext/B/t/OptreeCheck.pm @@ -5,7 +5,7 @@ use warnings; use vars qw($TODO $Level $using_open); require test.pl; -our $VERSION = '0.04'; +our $VERSION = '0.05'; # now export checkOptree, and those test.pl functions used by tests our @EXPORT = qw( checkOptree plan skip skip_all pass is like unlike @@ -58,8 +58,6 @@ various modes. # skip = 1, # skips test # todo = 'excuse',# anticipated failures # fail = 1# force fail (by redirecting result) -# retry = 1 # retry on test failure -# debug = 1, # use re 'debug' for retried failures !! # the 'golden-sample's, (must provide both) @@ -236,16 +234,6 @@ invokes todo('reason') For code arguments, this option causes getRendering to redirect the rendering operation to STDERR, which causes the regex match to fail. -=head2 retry = 1 - -If retry is set, and a test fails, it is run a second time, possibly -with regex debug. - -=head2 debug = 1 - -If a failure is retried, this turns on eval use re 'debug', thus -turning on regex debug. It's quite verbose, and not hugely helpful. - =head2 noanchors = 1 If set, this relaxes the regex check, which is normally pretty strict. @@ -312,8 +300,6 @@ sub import { our %gOpts = # values are replaced at runtime !! ( # scalar values are help string - retry = 'retry failures after turning on re debug', - debug = 'turn on re debug for those retries', selftest = 'self-tests mkCheckRex vs the reference rendering', fail = 'force all test to fail, print to stdout', @@ -657,7 +643,6 @@ sub mkCheckRex { # converts expected text into Regexp which should match against # unaltered version. also adjusts threaded = non-threaded my ($tc, $want) = @_; -eval no re 'debug'; my $str = $tc-{expect} || $tc-{expect_nt}; # standard bias $str = $tc-{$want} if $want $tc-{$want}; # stated pref @@ -776,28 +761,13 @@ sub mylike { my $cmnt = $tc-{name}; my $cross = $tc-{cross}; -my $msgs = $tc-{msgs}; -my $retry = $tc-{retry}; # || $gopts{retry}; -my $debug = $tc-{debug}; #|| $gopts{retrydbg}; - # bad is anticipated failure -my $bad = (0 or ( $cross $tc-{crossfail}) - or (!$cross $tc-{fail}) - or 0); # no undefs ! +my $bad = ($cross $tc-{crossfail}) || (!$cross $tc-{fail}); -# same as A ^ B, but B has side effects -my $ok = ( $badunlike ($got, $want, $cmnt, @$msgs) - or !$bad like ($got, $want, $cmnt, @$msgs)); +my $ok = $bad ? unlike ($got, $want, $cmnt) : like ($got, $want, $cmnt); reduceDiffs ($tc) if not $ok; -if (not $ok and $retry) { - # redo, perhaps with use re debug - NOT ROBUST - eval use re 'debug' if $debug; - $ok = ( $badunlike ($got, $want, (RETRY) $cmnt, @$msgs) - or !$bad like ($got, $want, (RETRY) $cmnt, @$msgs)); - eval no re 'debug'; -} return $ok; } diff --git a/ext/B/t/optree_check.t b/ext/B/t/optree_check.t index 002fe9b..8d3c062 100644 --- a/ext/B/t/optree_check.t +++ b/ext/B/t/optree_check.t @@ -174,7 +174,6 @@ checkOptree ( name = 'canonical example w -basic', bcopts= '-basic', code = sub{$a=$b+42}, crossfail = 1, - debug = 1, strip_open_hints = 1, expect= 'EOT_EOT', expect_nt = 'EONT_EONT'); # 7 1 leavesub[1 ref] K/REFC,1 -(end) -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-240-g332878e
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/332878e1ede268223970e2ddec708901541910d4?hp=b2d32ffb25539e36e18d4e4d11483f75d2b53b18 - Log - commit 332878e1ede268223970e2ddec708901541910d4 Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 11:32:55 2011 + In B's tests, fix calls to like() which weren't being passed a regexp. Now that the tests actually *test*, this reveals that one of the tests wasn't actually correct. Fix that, and in the process make the particular error message clearer and more consistent. --- Summary of changes: ext/B/t/OptreeCheck.pm |2 +- ext/B/t/concise.t |2 +- ext/B/t/optree_check.t |4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm index 50ea85e..164f561 100644 --- a/ext/B/t/OptreeCheck.pm +++ b/ext/B/t/OptreeCheck.pm @@ -733,7 +733,7 @@ sub mkCheckRex { $str =~ s/leavesub \[\d\]/leavesub [\\d]/msg; # for -terse #$str =~ s/(\s*)\n/\n/msg; # trailing spaces -croak no reftext found for $want: $tc-{name} +croak whitespace only reftext found for '$want': $tc-{name} unless $str =~ /\w+/; # fail unless a real test # $str = '.*' if 1; # sanity test diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index 075e1da..faff8a3 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -92,7 +92,7 @@ SKIP: { my @stylespec; $@=''; eval { add_style ('junk_B' = @stylespec) }; -like ($@, 'expecting 3 style-format args', +like ($@, qr/expecting 3 style-format args/, add_style rejects insufficient args); @stylespec = (0,0,0); # right length, invalid values diff --git a/ext/B/t/optree_check.t b/ext/B/t/optree_check.t index 8d3c062..1c55fb6 100644 --- a/ext/B/t/optree_check.t +++ b/ext/B/t/optree_check.t @@ -84,7 +84,7 @@ if (1) { expect= '', expect_nt = ''); }; -like($@, /no '\w+' golden-sample found/, empty expectations prevented); +like($@, qr/no '\w+' golden-sample found/, empty expectations prevented); $@=''; eval { @@ -95,7 +95,7 @@ if (1) { expect_nt = \n, expect= \n); }; -like($@, /no '\w+' golden-sample found/, +like($@, qr/whitespace only reftext found for '\w+'/, just whitespace expectations prevented); } -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-241-g6cba11c
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/6cba11c82282d9124d0cade24e1423f7fa2a3a0a?hp=332878e1ede268223970e2ddec708901541910d4 - Log - commit 6cba11c82282d9124d0cade24e1423f7fa2a3a0a Author: Michael Stevens mstev...@etla.org Date: Tue Feb 1 22:10:23 2011 + Fix excess whitespace in pod. --- Summary of changes: dump.c |6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/dump.c b/dump.c index 15a788f..a340a9c 100644 --- a/dump.c +++ b/dump.c @@ -364,18 +364,18 @@ If the PERL_PV_PRETTY_QUOTE flag is set then the result will be double quoted with any double quotes in the string escaped. Otherwise if the PERL_PV_PRETTY_LTGT flag is set then the result be wrapped in angle brackets. - + If the PERL_PV_PRETTY_ELLIPSES flag is set and not all characters in string were output then an ellipsis C... will be appended to the string. Note that this happens AFTER it has been quoted. - + If start_color is non-null then it will be inserted after the opening quote (if there is one) but before the escaped text. If end_color is non-null then it will be inserted after the escaped text but before any quotes or ellipses. Returns a pointer to the prettified text as held by dsv. - + =cut */ -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-243-gbe6c6a2
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/be6c6a23f06d680159ce323c1906d297abbe85cd?hp=6cba11c82282d9124d0cade24e1423f7fa2a3a0a - Log - commit be6c6a23f06d680159ce323c1906d297abbe85cd Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 14:10:24 2011 + In Cwd, convert two regexps to explicit ranges, instead of using /i Since change 56ca34cada940c7f moved the folding of ranges from runtime to compile time, these VMS-only regexps would incur a startup cost penalty on all platforms. This also removes build-time warnings when Cwd is invoked before the Unicode tables have been processed. M dist/Cwd/Cwd.pm commit 7b7d8b152c027b50b260244da6f7c17a010279d6 Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 13:53:50 2011 + In File::Copy, convert two regexps to explicit ranges, instead of using /i Since change 56ca34cada940c7f moved the folding of ranges from runtime to compile time, these VMS-only regexps would incur a startup cost penalty on all platforms. This also removes build-time warnings when File::Copy is invoked before the Unicode tables have been processed. M lib/File/Copy.pm --- Summary of changes: dist/Cwd/Cwd.pm |6 +++--- lib/File/Copy.pm |6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/dist/Cwd/Cwd.pm b/dist/Cwd/Cwd.pm index 4683e10..68ac4ca 100644 --- a/dist/Cwd/Cwd.pm +++ b/dist/Cwd/Cwd.pm @@ -171,7 +171,7 @@ use strict; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); -$VERSION = '3.36'; +$VERSION = '3.37'; my $xs_version = $VERSION; $VERSION = eval $VERSION; @@ -222,7 +222,7 @@ sub _vms_unix_rpt { $unix_rpt = VMS::Feature::current(filename_unix_report); } else { my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; -$unix_rpt = $env_unix_rpt =~ /^[ET1]/i; +$unix_rpt = $env_unix_rpt =~ /^[ETet1]/; } return $unix_rpt; } @@ -235,7 +235,7 @@ sub _vms_efs { $efs = VMS::Feature::current(efs_charset); } else { my $env_efs = $ENV{'DECC$EFS_CHARSET'} || ''; -$efs = $env_efs =~ /^[ET1]/i; +$efs = $env_efs =~ /^[ETet1]/; } return $efs; } diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index 1cf084b..d274567 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -22,7 +22,7 @@ sub syscopy; sub cp; sub mv; -$VERSION = '2.21'; +$VERSION = '2.22'; require Exporter; @ISA = qw(Exporter); @@ -60,7 +60,7 @@ sub _vms_unix_rpt { $unix_rpt = VMS::Feature::current(filename_unix_report); } else { my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''; -$unix_rpt = $env_unix_rpt =~ /^[ET1]/i; +$unix_rpt = $env_unix_rpt =~ /^[ETet1]/; } return $unix_rpt; } @@ -73,7 +73,7 @@ sub _vms_efs { $efs = VMS::Feature::current(efs_charset); } else { my $env_efs = $ENV{'DECC$EFS_CHARSET'} || ''; -$efs = $env_efs =~ /^[ET1]/i; +$efs = $env_efs =~ /^[ETet1]/; } return $efs; } -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-244-g8233609
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/82336099d393c4ac04507e58e4402ba9c413f791?hp=be6c6a23f06d680159ce323c1906d297abbe85cd - Log - commit 82336099d393c4ac04507e58e4402ba9c413f791 Author: David Mitchell da...@iabyn.com Date: Fri Feb 4 15:19:41 2011 + silence do_curse() compiler warning Usage of the static function do_curse() in sv.c has been temporarily disabled; comment out the function definition too, to avoid a compiler warning about an unused function. --- Summary of changes: sv.c |2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/sv.c b/sv.c index c1274e8..6e8e5f3 100644 --- a/sv.c +++ b/sv.c @@ -552,6 +552,7 @@ do_clean_named_io_objs(pTHX_ SV *const sv) } /* Void wrapper to pass to visit() */ +/* XXX static void do_curse(pTHX_ SV * const sv) { if ((PL_stderrgv GvGP(PL_stderrgv) (SV*)GvIO(PL_stderrgv) == sv) @@ -559,6 +560,7 @@ do_curse(pTHX_ SV * const sv) { return; (void)curse(sv, 0); } +*/ /* =for apidoc sv_clean_objs -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-247-g3857d07
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/3857d07c85882fa81d5e5c1ce2867e8c957747d0?hp=82336099d393c4ac04507e58e4402ba9c413f791 - Log - commit 3857d07c85882fa81d5e5c1ce2867e8c957747d0 Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 16:02:38 2011 + In B's OptreeCheck, always report inconsistent errors as a failed test. Previously there were 3 different options, and the default was to print a diagnostic (which obviously can get missed). Remove the options - tests are tests. As this means that most calls to checkOptree() now make two tests rather than one, update many of the test scripts' plans. M ext/B/t/OptreeCheck.pm M ext/B/t/f_map.t M ext/B/t/f_sort.t M ext/B/t/optree_check.t M ext/B/t/optree_concise.t M ext/B/t/optree_constants.t M ext/B/t/optree_misc.t M ext/B/t/optree_samples.t M ext/B/t/optree_sort.t M ext/B/t/optree_specials.t M ext/B/t/optree_varinit.t commit 3f47291432d23a4da5e85270f0a5e356ca6994ff Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 15:32:28 2011 + In B's OptreeCheck, implement proper qr// matching for regexps. Hence we can now do string matching on strings, rather than treating everything as a regexp. M ext/B/t/OptreeCheck.pm M ext/B/t/optree_concise.t commit 25b57a7e3aeaed75d57ab52d2271a61cbb3f222a Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 15:08:28 2011 + In B's OptreeCheck, inline diag_or_fail() into its only caller. $tc-{goterrs} is not referenced after this function, so no need to re-assign to it. M ext/B/t/OptreeCheck.pm --- Summary of changes: ext/B/t/OptreeCheck.pm | 89 ++- ext/B/t/f_map.t|2 +- ext/B/t/f_sort.t |2 +- ext/B/t/optree_check.t |2 +- ext/B/t/optree_concise.t |4 +- ext/B/t/optree_constants.t |2 +- ext/B/t/optree_misc.t |4 +- ext/B/t/optree_samples.t |2 +- ext/B/t/optree_sort.t |2 +- ext/B/t/optree_specials.t |2 +- ext/B/t/optree_varinit.t |2 +- 11 files changed, 41 insertions(+), 72 deletions(-) diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm index 164f561..4bbe32b 100644 --- a/ext/B/t/OptreeCheck.pm +++ b/ext/B/t/OptreeCheck.pm @@ -51,7 +51,8 @@ various modes. prog = 'sort @a', # run in subprocess, aka -MO=Concise bcopts = '-exec', # $opt or \@opts, passed to BC::compile -errs = 'Useless variable @main::a .*' # str, regex, [str+] [regex+], +errs = 'Name main::a used only once: possible typo at -e line 1.', + # str, regex, [str+] [regex+], # various test options # errs = '.*', # match against any emitted errs, -w warnings @@ -262,17 +263,6 @@ checkErrs() is a getRendering helper that verifies that expected errs against those found when rendering the code on the platform. It is run after rendering, and before mkCheckRex. -Errors can be reported 3 different ways; diag, fail, print. - - diag - uses test.pl _diag() - fail - causes double-testing - print-.no # in front of the output (may mess up test harnesses) - -The 3 ways are selectable at runtimve via cmdline-arg: -report={diag,fail,print}. - - - =cut use Config; @@ -311,10 +301,6 @@ our %gOpts = # values are replaced at runtime !! help = [0, 'provides help and exits', 0], testmode = [qw/ native cross both /], - # reporting mode for rendering errs - report= [qw/ diag fail print /], - errcont = [1, 'if 1, tests match even if report is fail', 0], - # fixup for VMS, cygwin, which don't have stderr b4 stdout rxnoorder = [1, 'if 1, dont req match on -e lines, and -banner',0], strip = [1, 'if 1, catch errs and remove from renderings',0], @@ -452,19 +438,8 @@ sub newTestCases { $tc-{$k} = $gOpts{$k} unless defined $tc-{$k}; } } -# transform errs to self-hash for efficient set-math if ($tc-{errs}) { - if (not ref $tc-{errs}) { - $tc-{errs} = { $tc-{errs} = 1}; - } - elsif (ref $tc-{errs} eq 'ARRAY') { - my %errs; - @errs{@{$tc-{errs}}} = (1) x @{$tc-{errs}}; - $tc-{errs} = \%errs; - } - elsif (ref $tc-{errs} eq 'Regexp') { - warn regexp err matching not yet implemented; - } + $tc-{errs} = [$tc-{errs}] unless ref $tc-{errs} eq 'ARRAY'; } return $tc; } @@ -559,43 +534,37 @@ sub checkErrs { # check rendering errs against expected errors, reduce and report my $tc = shift; -# check for agreement, by hash (order less important) -my (%goterrs, @got); -$tc-{goterrs} ||= []; -
[perl.git] branch blead, updated. v5.13.9-248-g3df2ec5
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/3df2ec53a8bebf2834a6148ee2f3453fdc73fd66?hp=3857d07c85882fa81d5e5c1ce2867e8c957747d0 - Log - commit 3df2ec53a8bebf2834a6148ee2f3453fdc73fd66 Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 16:59:42 2011 + Actually generate full failure diagnostics in checkErrs() in B's OptreeCheck, 3857d07c85882fa8 used if() where unless() would have been correct. However, I didn't spot this because a: none of the tests fail so none are trying to generate diagnostics b: the code as written is silent if there are no errors Hence make the code be called unconditionally, which simplifies things. Remove the vestigial forced fail() if $gOpts{fail} is true. --- Summary of changes: ext/B/t/OptreeCheck.pm | 15 +++ 1 files changed, 7 insertions(+), 8 deletions(-) diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm index 4bbe32b..8cb97b9 100644 --- a/ext/B/t/OptreeCheck.pm +++ b/ext/B/t/OptreeCheck.pm @@ -556,15 +556,14 @@ sub checkErrs { @missed = sort @missed; my @got = sort keys %goterrs; -if (@{$tc-{errs}} - ? is(@missed + @got, 0, Only got expected errors for $tc-{name}) - : is(scalar @got, 0, Got no errors for $tc-{name}) # @missed must be 0 here. - ) { - _diag(join \n, got unexpected:, @got) if @got; - _diag(join \n, missed expected:, @missed) if @missed; +if (@{$tc-{errs}}) { + is(@missed + @got, 0, Only got expected errors for $tc-{name}) +} else { + # @missed must be 0 here. + is(scalar @got, 0, Got no errors for $tc-{name}) } - -fail(FORCED: $tc-{name}:\n) if $gOpts{fail}; # silly ? +_diag(join \n, got unexpected:, @got) if @got; +_diag(join \n, missed expected:, @missed) if @missed; } =head1 mkCheckRex ($tc) -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-251-gfbe5214
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/fbe521465f3f73ca77e746257b5cd6411086e960?hp=88c8c9616516015e2fe0b502cdb92dc4efcc0c10 - Log - commit fbe521465f3f73ca77e746257b5cd6411086e960 Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 20:19:36 2011 + Refactor B's o.t to use 'prog' and 'switches' with runperl(), not 'args'. Previously it was using an array to hold the list of command line arguments, between each test splicing the one element that actually changed, and then passing the array to runperl, without an explicit program. Not the clearest of approaches. --- Summary of changes: ext/B/t/o.t | 16 +++- 1 files changed, 7 insertions(+), 9 deletions(-) diff --git a/ext/B/t/o.t b/ext/B/t/o.t index f1c8ae3..75d8ee8 100644 --- a/ext/B/t/o.t +++ b/ext/B/t/o.t @@ -31,16 +31,14 @@ plan( 9 ); # And someone's responsible. # use() makes it difficult to avoid O::import() require_ok( 'O' ); -my @args = ('-Ilib', '-MO=success,foo,bar', '-e', '1' ); -my @lines = get_lines( @args ); +my @lines = get_lines( '-MO=success,foo,bar' ); is( $lines[0], 'Compiling!', 'Output should not be saved without -q switch' ); is( $lines[1], '(foo) bar', 'O.pm should call backend compile() method' ); is( $lines[2], '[]', 'Nothing should be in $O::BEGIN_output without -q' ); is( $lines[3], '-e syntax OK', 'O.pm should not munge perl output without -qq'); -$args[1] = '-MO=-q,success,foo,bar'; -@lines = get_lines( @args ); +@lines = get_lines( '-MO=-q,success,foo,bar' ); isnt( $lines[1], 'Compiling!', 'Output should not be printed with -q switch' ); SKIP: { @@ -48,18 +46,18 @@ SKIP: { unless $Config{useperlio}; is( $lines[1], [Compiling!, '... but should be in $O::BEGIN_output' ); - $args[1] = '-MO=-qq,success,foo,bar'; - @lines = get_lines( @args ); + @lines = get_lines( '-MO=-qq,success,foo,bar' ); is( scalar @lines, 3, '-qq should suppress even the syntax OK message' ); } -$args[1] = '-MO=success,fail'; -@lines = get_lines( @args ); +@lines = get_lines( '-MO=success,fail' ); like( $lines[1], qr/fail at .eval/, 'O.pm should die if backend compile() does not return a subref' ); sub get_lines { - split(/[\r\n]+/, runperl( args = [ @_ ], stderr = 1 )); +my $compile = shift; + split(/[\r\n]+/, runperl( switches = [ '-Ilib', $compile ], + prog = 1, stderr = 1 )); } END { -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-252-g07a63b9
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/07a63b998433c2d05ac3376f7c11dc1bd3e3f49c?hp=fbe521465f3f73ca77e746257b5cd6411086e960 - Log - commit 07a63b998433c2d05ac3376f7c11dc1bd3e3f49c Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 22:14:29 2011 +0100 Remove MacOS Classic references from B's tests. --- Summary of changes: ext/B/t/showlex.t |4 +--- ext/B/t/terse.t |4 +--- 2 files changed, 2 insertions(+), 6 deletions(-) diff --git a/ext/B/t/showlex.t b/ext/B/t/showlex.t index 257b9c9..6a53182 100644 --- a/ext/B/t/showlex.t +++ b/ext/B/t/showlex.t @@ -22,17 +22,15 @@ my $verbose = @ARGV; # set if ANY ARGS my $a; my $Is_VMS = $^O eq 'VMS'; -my $Is_MacOS = $^O eq 'MacOS'; my $path = join , map { qq[-I$_] } @INC; $path = '-I../lib -Iperl_root:[lib]' if $Is_VMS; # gets too long otherwise -my $redir = $Is_MacOS ? : 21; my $is_thread = $Config{use5005threads} $Config{use5005threads} eq 'define'; if ($is_thread) { ok # use5005threads: test skipped\n; } else { -$a = `$^X $path -MO=Showlex -e my \@one $redir`; +$a = `$^X $path -MO=Showlex -e my \@one 21`; like ($a, qr/sv_undef.*PVNV.*\@one.*sv_undef.*AV/s, canonical usage works); } diff --git a/ext/B/t/terse.t b/ext/B/t/terse.t index 7c1d396..26e2e76 100644 --- a/ext/B/t/terse.t +++ b/ext/B/t/terse.t @@ -91,9 +91,7 @@ sub bar { # Schwern's example of finding an RV my $path = join , map { qq[-I$_] } @INC; -$path = '-I::lib -MMac::err=unix' if $^O eq 'MacOS'; -my $redir = $^O eq 'MacOS' ? '' : 21; -my $items = qx{$^X $path -MO=Terse -le print \\42 $redir}; +my $items = qx{$^X $path -MO=Terse -le print \\42 21}; if( $] = 5.011 ) { like( $items, qr/IV $hex \\42/, 'RV (but now stored in an IV)' ); } else { -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-253-g75081bb
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/75081bb379696d31812ce0b07eded90b8395586c?hp=07a63b998433c2d05ac3376f7c11dc1bd3e3f49c - Log - commit 75081bb379696d31812ce0b07eded90b8395586c Author: Chris 'BinGOs' Williams ch...@bingosnet.co.uk Date: Fri Feb 4 21:43:34 2011 + Clarify the return values of the first_release functions in Module::CoreList Raised as CPAN RT #65461 by Tokuhiro Matsuno --- Summary of changes: dist/Module-CoreList/lib/Module/CoreList.pm |6 -- 1 files changed, 4 insertions(+), 2 deletions(-) diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index 1363f9a..8223058 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/dist/Module-CoreList/lib/Module/CoreList.pm @@ -57,12 +57,14 @@ These are the functions that are available, they may either be called as functio Behaviour since version 2.11 Requires a MODULE name as an argument, returns the perl version when that module first -appeared in core as ordered by perl version number or undef if that module is not in core. +appeared in core as ordered by perl version number or undef ( in scalar context ) +or an empty list ( in list context ) if that module is not in core. =item Cfirst_release_by_date( MODULE ) Requires a MODULE name as an argument, returns the perl version when that module first -appeared in core as ordered by release date or undef if that module is not in core. +appeared in core as ordered by release date or undef ( in scalar context ) +or an empty list ( in list context ) if that module is not in core. =item Cfind_modules( REGEX, [ LIST OF PERLS ] ) -- Perl5 Master Repository
[perl.git] branch smoke-me/Open3-0, created. v5.13.9-253-gda8a716
In perl.git, the branch smoke-me/Open3-0 has been created http://perl5.git.perl.org/perl.git/commitdiff/da8a716e053a5ffe119eab4892ce8b42103d5994?hp= at da8a716e053a5ffe119eab4892ce8b42103d5994 (commit) - Log - commit da8a716e053a5ffe119eab4892ce8b42103d5994 Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 21:50:02 2011 + In IPC::Open3's fd.t, correct the code added in 1f563db471aa8a00. Cq_Pie_ is not the same as Cq _Pie_ - the former is a bareword starting with q, the latter a quoting operator. This error was hidden by the code added in 45a1ce9706434aec to make the test more forgiving of random stderr output. Correct the description - fd 1 is STDOUT, not STDIN. --- -- Perl5 Master Repository
[perl.git] branch smoke-me/Open3-1, created. v5.13.9-254-g649d6a7
In perl.git, the branch smoke-me/Open3-1 has been created http://perl5.git.perl.org/perl.git/commitdiff/649d6a7b2baf1ac35c4764fb58701aaf9c904c19?hp= at 649d6a7b2baf1ac35c4764fb58701aaf9c904c19 (commit) - Log - commit 649d6a7b2baf1ac35c4764fb58701aaf9c904c19 Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 22:02:33 2011 + In IPC::Open3's fd.t, open STDIN explicitly in the test program. This removes the use of the stdin argument to runperl(), which will make the transition to Test::PerlRun easier, as it doesn't provide 'stdin'. This was the only test using 'stdin', and it can easily be changed not to need it. M ext/IPC-Open3/t/fd.t commit 493309160dc810e3a25628dfcb5114d731f64775 Author: Nicholas Clark n...@ccl4.org Date: Fri Feb 4 21:50:02 2011 + In IPC::Open3's fd.t, correct the code added in 1f563db471aa8a00. Cq_Pie_ is not the same as Cq _Pie_ - the former is a bareword starting with q, the latter a quoting operator. This error was hidden by the code added in 45a1ce9706434aec to make the test more forgiving of random stderr output. Correct the description - fd 1 is STDOUT, not STDIN. M ext/IPC-Open3/t/fd.t --- -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.13.9-254-g9c9388a
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/9c9388af520f163fd5d0ef576b56e7fe098e20b8?hp=75081bb379696d31812ce0b07eded90b8395586c - Log - commit 9c9388af520f163fd5d0ef576b56e7fe098e20b8 Author: Tony Cook t...@develop-help.com Date: Sat Feb 5 14:59:21 2011 +1100 export the functions required by re eg. see http://www.nntp.perl.org/group/perl.daily-build.reports/2011/02/msg91288.html --- Summary of changes: embed.fnc |4 ++-- global.sym |2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/embed.fnc b/embed.fnc index 952a57c..4bd6bdc 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1284,9 +1284,9 @@ Apd |void |sv_vsetpvfn|NN SV *const sv|NN const char *const pat|const STRLEN pa ApR|NV |str_to_version |NN SV *sv Ap |SV*|swash_init |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none Ap |UV |swash_fetch|NN SV *swash|NN const U8 *ptr|bool do_utf8 -EMpR |HV*|_swash_inversion_hash |NN SV* const swash +EXMpR |HV*|_swash_inversion_hash |NN SV* const swash EMpR |HV*|_new_invlist |const IV initial_size -EMpR |HV*|_swash_to_invlist |NN SV* const swash +EXMpR |HV*|_swash_to_invlist |NN SV* const swash EMp|void |_append_range_to_invlist |NN HV* const invlist|const UV start|const UV end #ifdef PERL_IN_REGCOMP_C EsMR |HV*|add_range_to_invlist |NN HV* const invlist|const UV start|const UV end diff --git a/global.sym b/global.sym index 1bd1a56..0b47e82 100644 --- a/global.sym +++ b/global.sym @@ -17,6 +17,8 @@ Perl_Gv_AMupdate Perl_PerlIO_context_layers +Perl__swash_inversion_hash +Perl__swash_to_invlist Perl_amagic_call Perl_amagic_deref_call Perl_apply_attrs_string -- Perl5 Master Repository