In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/3147e83bb9692573356e676668be17d48f48828c?hp=804352e2cf6da2f05a8e83ac4debc4ceb6617b7c>
- Log ----------------------------------------------------------------- commit 3147e83bb9692573356e676668be17d48f48828c Author: Father Chrysostomos <[email protected]> Date: Wed Jan 7 14:05:49 2015 -0800 Add Andreas Voegele to AUTHORS M AUTHORS commit 17d1bb51f67dbdee6135caad8ea1f0326a6c2f47 Author: Andreas Voegele <[email protected]> Date: Wed Jan 7 20:36:14 2015 +0100 Add test for rt#123556 M dist/Module-CoreList/t/corelist.t commit 41b9d3e4e272c70b7956bf6c821afe978d5b3c20 Author: Andreas Voegele <[email protected]> Date: Tue Jan 6 12:05:14 2015 +0100 Only compare defined values with "ge" in Module::CoreList::first_release_raw M dist/Module-CoreList/lib/Module/CoreList.pm commit 37b6dcb80f19834b5344bc8471e34a3e8c025849 Author: Father Chrysostomos <[email protected]> Date: Wed Jan 7 11:01:59 2015 -0800 perly.c: Emit nl after âReading a tokenâ This makes the -DTp output easier to read. M perly.c commit cb3a94c5159f33b62bee09b407d8fc093f8694e2 Author: Father Chrysostomos <[email protected]> Date: Wed Jan 7 10:01:14 2015 -0800 op.c: Remove dVAR from ck_grep It has not needed it since 3253bf854 make it call S_alloc_LOGOP instead of accessing PL_ppaddr directly. M op.c commit 57455aef87fe78b247091389ed30038b0ab3f203 Author: Father Chrysostomos <[email protected]> Date: Wed Jan 7 10:00:46 2015 -0800 op.c: Remove dVAR from newRANGE It has not needed it since 3253bf854 make it call S_alloc_LOGOP instead of accessing PL_ppaddr directly. M op.c commit ae4b55ed9a6c700b7f48830c381d72d1f8dea1b5 Author: Father Chrysostomos <[email protected]> Date: Wed Jan 7 10:00:07 2015 -0800 op.c: Remove dVAR from pmruntime It has not needed it since 3253bf854 make it call S_alloc_LOGOP instead of accessing PL_ppaddr directly. M op.c commit 7fa64c24a44df418e8bc4e701906c7a838a0caf5 Author: Father Chrysostomos <[email protected]> Date: Wed Jan 7 09:54:52 2015 -0800 TEST: Comment for 804352e2 M t/TEST ----------------------------------------------------------------------- Summary of changes: AUTHORS | 1 + dist/Module-CoreList/lib/Module/CoreList.pm | 2 +- dist/Module-CoreList/t/corelist.t | 19 ++++++++++++++++++- op.c | 3 --- perly.c | 2 +- t/TEST | 2 ++ 6 files changed, 23 insertions(+), 6 deletions(-) diff --git a/AUTHORS b/AUTHORS index 4d3869c..f4d429d 100644 --- a/AUTHORS +++ b/AUTHORS @@ -81,6 +81,7 @@ Andreas Klussmann <[email protected]> Andreas König <[email protected]> Andreas Marienborg <[email protected]> Andreas Schwab <[email protected]> +Andreas Voegele <[email protected]> Andrei Yelistratov <[email protected]> Andrej Borsenkow <[email protected]> Andrew Bettison <[email protected]> diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index 654196b..6ade31e 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/dist/Module-CoreList/lib/Module/CoreList.pm @@ -28,7 +28,7 @@ sub first_release_raw { my $version = shift; my @perls = $version - ? grep { exists $version{$_}{ $module } && + ? grep { defined $version{$_}{ $module } && $version{$_}{ $module } ge $version } keys %version : grep { exists $version{$_}{ $module } } keys %version; diff --git a/dist/Module-CoreList/t/corelist.t b/dist/Module-CoreList/t/corelist.t index d8e93bf..c129584 100644 --- a/dist/Module-CoreList/t/corelist.t +++ b/dist/Module-CoreList/t/corelist.t @@ -1,7 +1,7 @@ #!perl -w use strict; use Module::CoreList; -use Test::More tests => 25; +use Test::More tests => 29; BEGIN { require_ok('Module::CoreList'); } @@ -89,3 +89,20 @@ is(Module::CoreList->removed_from('CPANPLUS::inc'), 5.010001, is(Module::CoreList::removed_from('CPANPLUS::inc'), 5.010001, "CPANPLUS::inc was removed from 5.010001"); +{ + my $warnings_count = 0; + local $SIG{__WARN__} = sub { $warnings_count++ }; + local $^W = 1; + + ok(exists $Module::CoreList::version{5}{strict}, + "strict was in 5"); + + ok(!defined $Module::CoreList::version{5}{strict}, + "strict had no version in 5"); + + is(Module::CoreList::first_release('strict', 1.01), 5.00405, + "strict reached 1.01 with 5.00405"); + + cmp_ok($warnings_count, '==', 0, + "an undefined version does not produce warnings rt#123556"); +} diff --git a/op.c b/op.c index 9e5e926..264bf30 100644 --- a/op.c +++ b/op.c @@ -5461,7 +5461,6 @@ S_set_haseval(pTHX) OP * Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg, I32 floor) { - dVAR; PMOP *pm; LOGOP *rcop; I32 repl_has_vars = 0; @@ -7150,7 +7149,6 @@ and become part of the constructed op tree. OP * Perl_newRANGE(pTHX_ I32 flags, OP *left, OP *right) { - dVAR; LOGOP *range; OP *flip; OP *flop; @@ -10231,7 +10229,6 @@ Perl_ck_glob(pTHX_ OP *o) OP * Perl_ck_grep(pTHX_ OP *o) { - dVAR; LOGOP *gwop; OP *kid; const OPCODE type = o->op_type == OP_GREPSTART ? OP_GREPWHILE : OP_MAPWHILE; diff --git a/perly.c b/perly.c index f3243d4..48f0e80 100644 --- a/perly.c +++ b/perly.c @@ -318,7 +318,7 @@ Perl_yyparse (pTHX_ int gramtype) /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ if (parser->yychar == YYEMPTY) { - YYDPRINTF ((Perl_debug_log, "Reading a token: ")); + YYDPRINTF ((Perl_debug_log, "Reading a token:\n")); parser->yychar = yylex(); } diff --git a/t/TEST b/t/TEST index 480ce17..9fa708c 100755 --- a/t/TEST +++ b/t/TEST @@ -124,6 +124,8 @@ $| = 1; # remove empty elements due to insertion of empty symbols via "''p1'" syntax @ARGV = grep($_,@ARGV) if $^O eq 'VMS'; +# String eval to avoid loading File::Glob on non-miniperl. +# (Windows only uses this script for miniperl.) @ARGV = eval 'map glob, @ARGV' if $^O eq 'MSWin32'; our $show_elapsed_time = $ENV{HARNESS_TIMER} || 0; -- Perl5 Master Repository
