Hello community,
here is the log from the commit of package perl-List-MoreUtils-XS for
openSUSE:Factory checked in at 2018-01-25 12:35:42
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-List-MoreUtils-XS (Old)
and /work/SRC/openSUSE:Factory/.perl-List-MoreUtils-XS.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-List-MoreUtils-XS"
Thu Jan 25 12:35:42 2018 rev:6 rq:568411 version:0.428
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-List-MoreUtils-XS/perl-List-MoreUtils-XS.changes
2017-11-09 13:41:35.878580429 +0100
+++
/work/SRC/openSUSE:Factory/.perl-List-MoreUtils-XS.new/perl-List-MoreUtils-XS.changes
2018-01-25 12:35:45.204072791 +0100
@@ -1,0 +2,20 @@
+Wed Dec 20 06:32:01 UTC 2017 - co...@suse.com
+
+- updated to 0.428
+ see /usr/share/doc/packages/perl-List-MoreUtils-XS/Changes
+
+ 0.428 2017-12-19
+ - release 0.427_002 without further changes
+
+ 0.427_002 2017-12-14
+ - Update ppport.h to 3.37 for improved blead support
+ - Fix RT#123869 - context arg to croak() reported by Zefram
+ - fix RT#123870 - one() returns true on empty list reported by Andy
Lester
+ - pamper RT#123868 - $a/$b/$_ refcounting bugs reported by Zefram
+
+ 0.427_001 2017-12-12
+ - Fix RT#123613 - build fails on perl >=5.27.4 with -DDEBUGGING,
+ thanks for reporting and the suggested patch goes to Andreas
+ Koenig and Tony Cook
+
+-------------------------------------------------------------------
Old:
----
List-MoreUtils-XS-0.426.tar.gz
New:
----
List-MoreUtils-XS-0.428.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-List-MoreUtils-XS.spec ++++++
--- /var/tmp/diff_new_pack.j8dZKp/_old 2018-01-25 12:35:45.676050758 +0100
+++ /var/tmp/diff_new_pack.j8dZKp/_new 2018-01-25 12:35:45.680050571 +0100
@@ -17,7 +17,7 @@
Name: perl-List-MoreUtils-XS
-Version: 0.426
+Version: 0.428
Release: 0
#Upstream: Apache-2.0
%define cpan_name List-MoreUtils-XS
@@ -59,6 +59,7 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes GPL-1 MAINTAINER.md README.md ARTISTIC-1.0 LICENSE
+%doc Changes GPL-1 MAINTAINER.md README.md
+%license ARTISTIC-1.0 LICENSE
%changelog
++++++ List-MoreUtils-XS-0.426.tar.gz -> List-MoreUtils-XS-0.428.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/Changes
new/List-MoreUtils-XS-0.428/Changes
--- old/List-MoreUtils-XS-0.426/Changes 2017-10-02 16:15:12.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/Changes 2017-12-19 18:20:41.000000000 +0100
@@ -1,5 +1,19 @@
Revision history for Perl extension List-MoreUtils-XS
+0.428 2017-12-19
+ - release 0.427_002 without further changes
+
+0.427_002 2017-12-14
+ - Update ppport.h to 3.37 for improved blead support
+ - Fix RT#123869 - context arg to croak() reported by Zefram
+ - fix RT#123870 - one() returns true on empty list reported by Andy Lester
+ - pamper RT#123868 - $a/$b/$_ refcounting bugs reported by Zefram
+
+0.427_001 2017-12-12
+ - Fix RT#123613 - build fails on perl >=5.27.4 with -DDEBUGGING,
+ thanks for reporting and the suggested patch goes to Andreas
+ Koenig and Tony Cook
+
0.426 2017-10-02
- release 0.425_001 as 0.426
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/MANIFEST
new/List-MoreUtils-XS-0.428/MANIFEST
--- old/List-MoreUtils-XS-0.426/MANIFEST 2017-10-02 16:27:45.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/MANIFEST 2017-12-19 20:38:30.000000000
+0100
@@ -14,6 +14,7 @@
multicall.h
ppport.h
README.md
+t/.perltidyrc
t/inline/after.pm
t/inline/after_incl.pm
t/inline/all.pm
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/META.json
new/List-MoreUtils-XS-0.428/META.json
--- old/List-MoreUtils-XS-0.426/META.json 2017-10-02 16:27:45.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/META.json 2017-12-19 20:38:30.000000000
+0100
@@ -6,7 +6,7 @@
"Jens Rehsack <rehs...@cpan.org>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter
version 2.150010",
+ "generated_by" : "ExtUtils::MakeMaker version 7.3, CPAN::Meta::Converter
version 2.150010",
"license" : [
"apache_2_0"
],
@@ -43,17 +43,16 @@
},
"develop" : {
"requires" : {
- "Config::AutoConf" : "0.315",
"Module::CPANTS::Analyse" : "0.96",
"Test::CPAN::Changes" : "0",
"Test::CheckManifest" : "0",
"Test::Kwalitee" : "0",
+ "Test::Perl::Critic" : "0",
+ "Test::PerlTidy" : "0",
"Test::Pod" : "0",
"Test::Pod::Coverage" : "0",
"Test::Pod::Spelling::CommonMistakes" : "0",
- "Test::Spelling" : "0",
- "Test::WriteVariants" : "0.013",
- "inc::latest" : "0.500"
+ "Test::Spelling" : "0"
}
},
"runtime" : {
@@ -84,6 +83,6 @@
"web" : "https://github.com/perl5-utils/List-MoreUtils-XS";
}
},
- "version" : "0.426",
- "x_serialization_backend" : "JSON::PP version 2.94"
+ "version" : "0.428",
+ "x_serialization_backend" : "JSON::PP version 2.97000"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/META.yml
new/List-MoreUtils-XS-0.428/META.yml
--- old/List-MoreUtils-XS-0.426/META.yml 2017-10-02 16:27:45.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/META.yml 2017-12-19 20:38:29.000000000
+0100
@@ -17,7 +17,7 @@
IPC::Cmd: '0'
base: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version
2.150010'
+generated_by: 'ExtUtils::MakeMaker version 7.3, CPAN::Meta::Converter version
2.150010'
license: apache
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -33,5 +33,5 @@
bugtracker: https://rt.cpan.org/Dist/Display.html?Name=List-MoreUtils-XS
homepage: https://metacpan.org/release/List-MoreUtils-XS
repository: https://github.com/perl5-utils/List-MoreUtils-XS.git
-version: '0.426'
+version: '0.428'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/Makefile.PL
new/List-MoreUtils-XS-0.428/Makefile.PL
--- old/List-MoreUtils-XS-0.426/Makefile.PL 2017-08-15 15:35:41.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/Makefile.PL 2017-12-11 19:37:48.000000000
+0100
@@ -43,10 +43,9 @@
Sandbox::Tumble->tumble(qw(t));
}
-
# Should we build the XS version?
my %RUN_DEPS = (
- 'XSLoader' => "0.22",
+ 'XSLoader' => "0.22",
);
my %BUNDLE_CONFIGURE_DEPS = (
'inc::latest' => '0.500',
@@ -112,17 +111,17 @@
prereqs => {
develop => {
requires => {
- 'Test::CPAN::Changes' => 0,
- 'Test::CheckManifest' => 0,
- 'Module::CPANTS::Analyse' => '0.96',
- 'Test::Kwalitee' => 0,
- 'Test::Pod' => 0,
- 'Test::Pod::Coverage' => 0,
- 'Test::Pod::Spelling::CommonMistakes' => 0,
- 'Test::Spelling' => 0,
- 'Test::WriteVariants' => '0.013',
- %BUNDLE_CONFIGURE_DEPS,
- },
+ "Test::CPAN::Changes" => 0,
+ "Test::CheckManifest" => 0,
+ "Module::CPANTS::Analyse" => "0.96",
+ "Test::Kwalitee" => 0,
+ "Test::Perl::Critic" => 0,
+ "Test::PerlTidy" => 0,
+ "Test::Pod" => 0,
+ "Test::Pod::Coverage" => 0,
+ "Test::Pod::Spelling::CommonMistakes" => 0,
+ "Test::Spelling" => 0,
+ }
},
configure => {
requires => {%CONFIGURE_DEPS},
@@ -164,7 +163,7 @@
sub CheckConflicts
{
my %params = @_;
- my %conflicts = %{ $params{CONFLICTS} };
+ my %conflicts = %{$params{CONFLICTS}};
my $found = 0;
while (my ($module, $version) = each(%conflicts))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/XS.xs
new/List-MoreUtils-XS-0.428/XS.xs
--- old/List-MoreUtils-XS-0.426/XS.xs 2017-09-27 16:10:33.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/XS.xs 2017-12-14 07:15:39.000000000 +0100
@@ -274,7 +274,7 @@
# endif
#if PERL_VERSION_LT(5,21,7)
- if (!SvOK(name_sv))
+ if (!SvOK(name_sv))
continue;
#endif
@@ -389,29 +389,47 @@
croak("Can't use lexical $a or $b in pairwise code block"); \
} \
\
- rc = (init); \
+ rc = (init); \
sv_2mortal(newRV_noinc(rc)); \
\
PUSH_MULTICALL(mc_cv); \
SAVESPTR(GvSV(PL_defgv)); \
\
- if (!PL_firstgv || !PL_secondgv) \
- { \
- SAVESPTR(PL_firstgv); \
- SAVESPTR(PL_secondgv); \
- PL_firstgv = gv_fetchpv("a", TRUE, SVt_PV); \
- PL_secondgv = gv_fetchpv("b", TRUE, SVt_PV); \
- } \
+ /* Following code is stolen on request of */ \
+ /* Zefram from pp_sort.c of perl core 16ada23 */ \
+ /* I have no idea why it's necessary and there */\
+ /* is no reasonable documentation regarding */ \
+ /* deal with localized $a/$b/$_ */ \
+ SAVEGENERICSV(PL_firstgv); \
+ SAVEGENERICSV(PL_secondgv); \
+ PL_firstgv = MUTABLE_GV(SvREFCNT_inc( \
+ gv_fetchpvs("a", GV_ADD|GV_NOTQUAL, SVt_PV) \
+ )); \
+ PL_secondgv = MUTABLE_GV(SvREFCNT_inc( \
+ gv_fetchpvs("b", GV_ADD|GV_NOTQUAL, SVt_PV) \
+ )); \
+ save_gp(PL_firstgv, 0); save_gp(PL_secondgv, 0); \
+ GvINTRO_off(PL_firstgv); \
+ GvINTRO_off(PL_secondgv); \
+ SAVEGENERICSV(GvSV(PL_firstgv)); \
+ SvREFCNT_inc(GvSV(PL_firstgv)); \
+ SAVEGENERICSV(GvSV(PL_secondgv)); \
+ SvREFCNT_inc(GvSV(PL_secondgv)); \
\
for (i = 1; i < items; ++i) \
{ \
+ SV *olda, *oldb; \
sv_setiv(GvSV(PL_defgv), i-1); \
\
- GvSV(PL_firstgv) = rc; \
- GvSV(PL_secondgv) = args[i]; \
+ olda = GvSV(PL_firstgv); \
+ oldb = GvSV(PL_secondgv); \
+ GvSV(PL_firstgv) = SvREFCNT_inc_simple_NN(rc); \
+ GvSV(PL_secondgv) = SvREFCNT_inc_simple_NN(args[i]); \
+ SvREFCNT_dec(olda); \
+ SvREFCNT_dec(oldb); \
MULTICALL; \
\
- sv_setsv(rc, *PL_stack_sp); \
+ SvSetMagicSV(rc, *PL_stack_sp); \
} \
\
POP_MULTICALL; \
@@ -445,29 +463,29 @@
#define COUNT_ARGS_MAX \
do { \
- for (i = 0; i < items; i++) { \
- SvGETMAGIC(args[i]); \
- if(SvOK(args[i])) { \
- HE *he; \
- SvSetSV_nosteal(tmp, args[i]); \
- he = hv_fetch_ent(hv, tmp, 0, 0); \
- if (NULL == he) { \
- args[count++] = args[i]; \
- hv_store_ent(hv, tmp, newSViv(1), 0); \
- } \
- else { \
- SV *v = HeVAL(he); \
- IV how_many = SvIVX(v); \
- if(UNLIKELY(max < ++how_many)) \
- max = how_many; \
- sv_setiv(v, how_many); \
- } \
- } \
- else if(0 == seen_undef++) { \
- args[count++] = args[i]; \
- } \
- } \
- if(UNLIKELY(max < seen_undef)) max = seen_undef; \
+ for (i = 0; i < items; i++) { \
+ SvGETMAGIC(args[i]); \
+ if(SvOK(args[i])) { \
+ HE *he; \
+ SvSetSV_nosteal(tmp, args[i]); \
+ he = hv_fetch_ent(hv, tmp, 0, 0); \
+ if (NULL == he) { \
+ args[count++] = args[i]; \
+ hv_store_ent(hv, tmp, newSViv(1), 0); \
+ } \
+ else { \
+ SV *v = HeVAL(he); \
+ IV how_many = SvIVX(v); \
+ if(UNLIKELY(max < ++how_many)) \
+ max = how_many; \
+ sv_setiv(v, how_many); \
+ } \
+ } \
+ else if(0 == seen_undef++) { \
+ args[count++] = args[i]; \
+ } \
+ } \
+ if(UNLIKELY(max < seen_undef)) max = seen_undef; \
} while(0)
@@ -951,7 +969,7 @@
{
int found = 0;
#define ON_TRUE { if (found++) { POP_MULTICALL; XSRETURN_NO; }; }
-#define ON_EMPTY XSRETURN_YES
+#define ON_EMPTY XSRETURN_NO
TRUE_JUNCTION;
if (found)
XSRETURN_YES;
@@ -1621,7 +1639,9 @@
LMUav2flat(aTHX_ rc, args);
- for(i = AvFILLp(rc); i >= 0; --i)
+ i = AvFILLp(rc);
+ EXTEND(SP, i+1);
+ for(; i >= 0; --i)
{
ST(i) = sv_2mortal(AvARRAY(rc)[i]);
AvARRAY(rc)[i] = NULL;
@@ -1721,7 +1741,7 @@
croak_xs_usage(cv, "\\@\\@;\\@...");
av = (AV*)SvRV(ST(i));
- hv_clear(distinct);
+ hv_clear(distinct);
for(j = 0; j <= av_len(av); ++j)
{
@@ -2110,7 +2130,7 @@
if(seen_undef == max)
{
- ++count;
+ ++count;
EXTEND(SP, count);
ST(count-1) = &PL_sv_undef;
}
@@ -2127,7 +2147,7 @@
I32 i;
if( k > (items - 1) )
- croak(aTHX_ "Cannot get %" IVdf " samples from %" IVdf " elements",
(IV)k, (IV)(items-1));
+ croak("Cannot get %" IVdf " samples from %" IVdf " elements", (IV)k,
(IV)(items-1));
/* Initialize Drand01 unless rand() or srand() has already been called */
if(!PL_srand_called)
@@ -2540,8 +2560,8 @@
if (AvFILLp(list) == -1)
{
- av_push(list, newSVsv(item));
- RETVAL = 0;
+ av_push(list, newSVsv(item));
+ RETVAL = 0;
}
else if (AvFILLp(list) >= 0)
{
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/inc/Config/AutoConf/LMU.pm
new/List-MoreUtils-XS-0.428/inc/Config/AutoConf/LMU.pm
--- old/List-MoreUtils-XS-0.426/inc/Config/AutoConf/LMU.pm 2017-09-27
15:21:51.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/inc/Config/AutoConf/LMU.pm 2017-12-11
19:37:48.000000000 +0100
@@ -27,7 +27,7 @@
my $cache_name = $self->_cache_name(qw(feature statement expression));
my $check_sub = sub {
my $prologue = defined $options->{prologue} ? $options->{prologue} :
"";
- my $decl = "#define STMT_EXPR ({ 1; })";
+ my $decl = "#define STMT_EXPR ({ 1; })";
my $have_stmt_expr = $self->compile_if_else(
$self->lang_build_bool_test($prologue, "STMT_EXPR", $decl),
@@ -75,13 +75,17 @@
$self->check_all_headers(qw(time.h sys/time.h));
$self->check_funcs([qw(time)]);
- unless($self->check_types([qw(size_t ssize_t)]))
+ unless ($self->check_types([qw(size_t ssize_t)]))
{
- $self->check_sizeof_types(["int", "long", "long long", "ptr"], {
- prologue => $self->_default_includes . <<EOPTR
+ $self->check_sizeof_types(
+ ["int", "long", "long long", "ptr"],
+ {
+ prologue => $self->_default_includes
+ . <<EOPTR
typedef void * ptr;
EOPTR
- });
+ }
+ );
}
$self->check_builtin("expect");
$self->check_statement_expression();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/lib/List/MoreUtils/XS.pm
new/List-MoreUtils-XS-0.428/lib/List/MoreUtils/XS.pm
--- old/List-MoreUtils-XS-0.426/lib/List/MoreUtils/XS.pm 2017-10-02
16:15:31.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/lib/List/MoreUtils/XS.pm 2017-12-18
13:53:34.000000000 +0100
@@ -7,26 +7,26 @@
use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS};
-$VERSION = '0.426';
+$VERSION = '0.428';
-@EXPORT = ();
+@EXPORT = ();
@EXPORT_OK = qw(any all none notall one
- any_u all_u none_u notall_u one_u
- reduce_u reduce_0 reduce_1
- true false
- insert_after insert_after_string
- apply indexes
- after after_incl before before_incl
- firstidx lastidx onlyidx
- firstval lastval onlyval
- firstres lastres onlyres
- singleton duplicates frequency occurrences mode
- each_array each_arrayref
- pairwise natatime
- arrayify mesh zip6 uniq listcmp
- samples minmax minmaxstr part
- bsearch bsearchidx binsert bremove lower_bound upper_bound
equal_range
- qsort);
+ any_u all_u none_u notall_u one_u
+ reduce_u reduce_0 reduce_1
+ true false
+ insert_after insert_after_string
+ apply indexes
+ after after_incl before before_incl
+ firstidx lastidx onlyidx
+ firstval lastval onlyval
+ firstres lastres onlyres
+ singleton duplicates frequency occurrences mode
+ each_array each_arrayref
+ pairwise natatime
+ arrayify mesh zip6 uniq listcmp
+ samples minmax minmaxstr part
+ bsearch bsearchidx binsert bremove lower_bound upper_bound equal_range
+ qsort);
%EXPORT_TAGS = (all => \@EXPORT_OK);
# Load the XS at compile-time so that redefinition warnings will be
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/ppport.h
new/List-MoreUtils-XS-0.428/ppport.h
--- old/List-MoreUtils-XS-0.426/ppport.h 2017-06-14 19:15:33.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/ppport.h 2017-12-13 08:30:41.000000000
+0100
@@ -4,9 +4,9 @@
/*
----------------------------------------------------------------------
- ppport.h -- Perl/Pollution/Portability Version 3.36
+ ppport.h -- Perl/Pollution/Portability Version 3.37
- Automatically created by Devel::PPPort running under perl 5.026000.
+ Automatically created by Devel::PPPort running under perl 5.027007.
Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
includes in parts/inc/ instead.
@@ -21,7 +21,7 @@
=head1 NAME
-ppport.h - Perl/Pollution/Portability version 3.36
+ppport.h - Perl/Pollution/Portability version 3.37
=head1 SYNOPSIS
@@ -46,8 +46,8 @@
--nochanges don't suggest changes
--nofilter don't filter input files
- --strip strip all script and doc functionality from
- ppport.h
+ --strip strip all script and doc functionality
+ from ppport.h
--list-provided list provided API
--list-unsupported list unsupported API
@@ -383,7 +383,7 @@
# Disable broken TRIE-optimization
BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if $] >= 5.009004 && $] <= 5.009005 }
-my $VERSION = 3.36;
+my $VERSION = 3.37;
my %opt = (
quiet => 0,
@@ -1669,7 +1669,6 @@
he_dup|||
hek_dup|||
hfree_next_entry|||
-hfreeentries|||
hsplit|||
hv_assert|||
hv_auxinit_internal|||n
@@ -1695,6 +1694,7 @@
hv_fetch|||
hv_fill||5.013002|
hv_free_ent_ret|||
+hv_free_entries|||
hv_free_ent||5.004000|
hv_iterinit|||
hv_iterkeysv||5.003070|
@@ -4589,14 +4589,16 @@
# undef isPRINT
# endif
-#ifdef HAS_QUAD
-# ifdef U64TYPE
-# define WIDEST_UTYPE U64TYPE
+#ifndef WIDEST_UTYPE
+# ifdef QUADKIND
+# ifdef U64TYPE
+# define WIDEST_UTYPE U64TYPE
+# else
+# define WIDEST_UTYPE Quad_t
+# endif
# else
-# define WIDEST_UTYPE Quad_t
+# define WIDEST_UTYPE U32
# endif
-#else
-# define WIDEST_UTYPE U32
#endif
#ifndef isALNUMC
# define isALNUMC(c) (isALPHA(c) || isDIGIT(c))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/.perltidyrc
new/List-MoreUtils-XS-0.428/t/.perltidyrc
--- old/List-MoreUtils-XS-0.426/t/.perltidyrc 1970-01-01 01:00:00.000000000
+0100
+++ new/List-MoreUtils-XS-0.428/t/.perltidyrc 2017-12-11 14:40:01.000000000
+0100
@@ -0,0 +1,17 @@
+-b
+-bl
+-noll
+-pt=2
+-bt=2
+-sbt=2
+-vt=0
+-vtc=0
+-dws
+-aws
+-nsfs
+-asc
+-bbt=0
+-cab=0
+-l=130
+-ole=unix
+--noblanks-before-comments
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/inline/binsert.pm
new/List-MoreUtils-XS-0.428/t/inline/binsert.pm
--- old/List-MoreUtils-XS-0.426/t/inline/binsert.pm 2017-08-16
08:49:57.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/inline/binsert.pm 2017-12-11
14:40:36.000000000 +0100
@@ -2,7 +2,8 @@
use Test::More;
use Test::LMU;
-SCOPE: {
+SCOPE:
+{
my @list = ();
is(0, (binsert { $_ cmp "Hello" } "Hello", @list), "Inserting into empty
list");
is(1, (binsert { $_ cmp "world" } "world", @list), "Inserting into
one-item list");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/inline/bremove.pm
new/List-MoreUtils-XS-0.428/t/inline/bremove.pm
--- old/List-MoreUtils-XS-0.426/t/inline/bremove.pm 2017-08-16
08:38:03.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/inline/bremove.pm 2017-12-11
14:40:36.000000000 +0100
@@ -39,9 +39,9 @@
# test from shawnlaffan from GH issue #2 of List-MoreUtils-XS
SCOPE:
{
- my @list = ('somestring');
+ my @list = ('somestring');
my $target = $list[0];
- is ($target, (bremove {$_ cmp $target} @list), 'removed from single item
list');
+ is($target, (bremove { $_ cmp $target } @list), 'removed from single item
list');
}
leak_free_ok(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/inline/occurrences.pm
new/List-MoreUtils-XS-0.428/t/inline/occurrences.pm
--- old/List-MoreUtils-XS-0.426/t/inline/occurrences.pm 2017-08-15
13:31:46.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/inline/occurrences.pm 2017-12-11
14:40:38.000000000 +0100
@@ -24,7 +24,7 @@
@o = occurrences grep { /\w+/ } @lorem;
my $wc = reduce_0 { defined $b ? $a + $_ * scalar @$b : $a } @o;
- is( $wc, 124, "Words are as many as requested at www.loremipsum.de" );
+ is($wc, 124, "Words are as many as requested at www.loremipsum.de");
}
SCOPE:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/inline/one.pm
new/List-MoreUtils-XS-0.428/t/inline/one.pm
--- old/List-MoreUtils-XS-0.426/t/inline/one.pm 2017-07-28 16:25:33.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/t/inline/one.pm 2017-12-13 09:02:47.000000000
+0100
@@ -10,6 +10,7 @@
is_false(one { 0 == $_ } @list);
is_false(one { 1 <= $_ } @list);
is_false(one { !(127 & $_) } @list);
+is_false(one { 0 } ());
leak_free_ok(
one => sub {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/inline/pairwise.pm
new/List-MoreUtils-XS-0.428/t/inline/pairwise.pm
--- old/List-MoreUtils-XS-0.426/t/inline/pairwise.pm 2017-07-28
16:25:34.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/inline/pairwise.pm 2017-12-11
14:40:38.000000000 +0100
@@ -23,9 +23,11 @@
# sub returns more than two items
@a = (1, 1, 2, 3, 5);
-@b = (2, 3, 5, 7, 11);
+@b = (2, 3, 5, 7, 11, 13);
@c = pairwise { ($a) x $b } @a, @b;
-is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11], "pw8");
+is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11, (undef) x 13],
"pw8");
+is_deeply(\@a, [1, 1, 2, 3, 5], "pw9");
+is_deeply(\@b, [2, 3, 5, 7, 11, 13], "pwX");
(@a, @b) = ();
push @a, int rand(1000) for 0 .. rand(1000);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/inline/reduce_0.pm
new/List-MoreUtils-XS-0.428/t/inline/reduce_0.pm
--- old/List-MoreUtils-XS-0.426/t/inline/reduce_0.pm 2017-07-28
19:31:05.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/inline/reduce_0.pm 2017-12-11
14:40:38.000000000 +0100
@@ -7,21 +7,21 @@
SCOPE:
{
my @exam_results = (2, 4, 6, 5, 3, 0);
- my $pupil = sum @exam_results;
- my $wa = reduce_0 { $a + ($_+1) * $b / $pupil } @exam_results;
- $wa = sprintf( "%0.2f", $wa );
- is( $wa, 3.15, "weighted average of exam" );
+ my $pupil = sum @exam_results;
+ my $wa = reduce_0 { $a + ($_ + 1) * $b / $pupil } @exam_results;
+ $wa = sprintf("%0.2f", $wa);
+ is($wa, 3.15, "weighted average of exam");
}
leak_free_ok(
'reduce_0' => sub {
my @exam_results = (2, 4, 6, 5, 3, 0);
- my $pupil = 20;
- my $wa = reduce_0 { $a + ($_+1) * $b / $pupil } @exam_results;
+ my $pupil = 20;
+ my $wa = reduce_0 { $a + ($_ + 1) * $b / $pupil }
@exam_results;
},
'reduce_0 X' => sub {
- my @w = map { int(rand(5)) + 1; } 1..100;
- my $c1 = reduce_0 {$a + $w[$_] * $b } 1..100;
+ my @w = map { int(rand(5)) + 1; } 1 .. 100;
+ my $c1 = reduce_0 { $a + $w[$_] * $b } 1 .. 100;
}
);
leak_free_ok(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/inline/reduce_1.pm
new/List-MoreUtils-XS-0.428/t/inline/reduce_1.pm
--- old/List-MoreUtils-XS-0.426/t/inline/reduce_1.pm 2017-07-28
19:40:13.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/inline/reduce_1.pm 2017-12-11
14:40:38.000000000 +0100
@@ -8,24 +8,24 @@
use Math::Trig;
my $eps = 1e-11;
-if ( $^O eq 'unicos' )
+if ($^O eq 'unicos')
{ # See lib/Math/Complex.pm and t/lib/complex.t.
$eps = 1e-10;
}
sub near ($$$;$)
{
- my $d = $_[1] ? abs( $_[0] / $_[1] - 1 ) : abs( $_[0] );
+ my $d = $_[1] ? abs($_[0] / $_[1] - 1) : abs($_[0]);
local $Test::Builder::Level = $Test::Builder::Level + 1;
- looks_like_number( $_[0] ) or return cmp_ok( $_[0], "eq", $_[1], "near?
$_[0] ~= $_[1]" );
- $_[0] =~ m/nan/i and return cmp_ok( $_[0], "eq", $_[1], "near? $_[0] ~=
$_[1]" );
- $_[0] =~ m/inf/i and return cmp_ok( $_[0], "eq", $_[1], "near? $_[0] ~=
$_[1]" );
+ looks_like_number($_[0]) or return cmp_ok($_[0], "eq", $_[1], "near? $_[0]
~= $_[1]");
+ $_[0] =~ m/nan/i and return cmp_ok($_[0], "eq", $_[1], "near? $_[0] ~=
$_[1]");
+ $_[0] =~ m/inf/i and return cmp_ok($_[0], "eq", $_[1], "near? $_[0] ~=
$_[1]");
my $e = defined $_[3] ? $_[3] : $eps;
- cmp_ok( $d, '<', $e, "$_[2] => near? $_[0] ~= $_[1]" ) or diag("near?
$_[0] ~= $_[1]");
+ cmp_ok($d, '<', $e, "$_[2] => near? $_[0] ~= $_[1]") or diag("near? $_[0]
~= $_[1]");
}
-my $half_pi = reduce_1 { $a * ( (4 * $b * $b) / ((2 * $b - 1) * (2 * $b + 1))
) } 1 .. 750;
+my $half_pi = reduce_1 { $a * ((4 * $b * $b) / ((2 * $b - 1) * (2 * $b + 1)))
} 1 .. 750;
-near( $half_pi, pi/2, "Wallis product", 1e-2 );
+near($half_pi, pi / 2, "Wallis product", 1e-2);
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/inline/reduce_u.pm
new/List-MoreUtils-XS-0.428/t/inline/reduce_u.pm
--- old/List-MoreUtils-XS-0.426/t/inline/reduce_u.pm 2017-08-02
11:19:00.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/inline/reduce_u.pm 2017-12-11
14:40:38.000000000 +0100
@@ -7,21 +7,21 @@
SCOPE:
{
my @exam_results = (0, 2, 4, 6, 5, 3, 0);
- my $pupil = sum @exam_results;
- my $wa = reduce_u { defined $a ? $a + $_ * $b / $pupil : 0 } @exam_results;
- $wa = sprintf( "%0.2f", $wa );
- is( $wa, 3.15, "weighted average of exam" );
+ my $pupil = sum @exam_results;
+ my $wa = reduce_u { defined $a ? $a + $_ * $b / $pupil : 0 }
@exam_results;
+ $wa = sprintf("%0.2f", $wa);
+ is($wa, 3.15, "weighted average of exam");
}
leak_free_ok(
'reduce_u' => sub {
my @exam_results = (undef, 2, 4, 6, 5, 3, 0);
- my $pupil = 20;
- my $wa = reduce_u { defined $a ? $a + $_ * $b / $pupil : 0 }
@exam_results;
+ my $pupil = 20;
+ my $wa = reduce_u { defined $a ? $a + $_ * $b / $pupil : 0 }
@exam_results;
},
'reduce_u X' => sub {
- my @w = map { int(rand(5)) + 1; } 1..100;
- my $c1 = reduce_u { ($a || 0) + $w[$_] * $b } 1..100;
+ my @w = map { int(rand(5)) + 1; } 1 .. 100;
+ my $c1 = reduce_u { ($a || 0) + $w[$_] * $b } 1 .. 100;
}
);
leak_free_ok(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/inline/samples.pm
new/List-MoreUtils-XS-0.428/t/inline/samples.pm
--- old/List-MoreUtils-XS-0.426/t/inline/samples.pm 2017-08-02
11:19:00.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/inline/samples.pm 2017-12-11
14:40:38.000000000 +0100
@@ -16,7 +16,7 @@
my @l = (1 .. 10);
my @s = samples 10, @l;
is(scalar @s, 10, "samples delivers 10 out of 10 when used as shuffle");
- my @u = uniq grep {defined $_ } @s;
+ my @u = uniq grep { defined $_ } @s;
is(scalar @u, 10, "samples doesn't add any integer twice");
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/lib/Test/LMU.pm
new/List-MoreUtils-XS-0.428/t/lib/Test/LMU.pm
--- old/List-MoreUtils-XS-0.426/t/lib/Test/LMU.pm 2017-07-25
20:42:09.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/lib/Test/LMU.pm 2017-12-11
14:40:01.000000000 +0100
@@ -31,34 +31,34 @@
{
@_ == 1 or croak "Expected 1 param";
my $tb = $CLASS->builder();
- $tb->ok( $_[0], "is_true ()" );
+ $tb->ok($_[0], "is_true ()");
}
sub is_false
{
@_ == 1 or croak "Expected 1 param";
my $tb = $CLASS->builder();
- $tb->ok( !$_[0], "is_false()" );
+ $tb->ok(!$_[0], "is_false()");
}
sub is_defined
{
@_ < 1 or croak "Expected 0..1 param";
my $tb = $CLASS->builder();
- $tb->ok( defined( $_[0] ), "is_defined ()" );
+ $tb->ok(defined($_[0]), "is_defined ()");
}
sub is_undef
{
@_ <= 1 or croak "Expected 0..1 param";
my $tb = $CLASS->builder();
- $tb->ok( !defined( $_[0] ), "is_undef()" );
+ $tb->ok(!defined($_[0]), "is_undef()");
}
sub is_dying
{
@_ == 1 or @_ == 2 or croak "is_dying(name => code)";
- my ($name, $code );
+ my ($name, $code);
$name = shift if @_ == 2;
$code = shift;
ref $code eq "CODE" or croak "is_dying(name => code)";
@@ -66,13 +66,13 @@
eval { $code->(); };
my $except = $@;
chomp $except;
- $tb->ok( $except, "$name is_dying()" ) and note($except);
+ $tb->ok($except, "$name is_dying()") and note($except);
}
sub not_dying
{
@_ == 1 or @_ == 2 or croak "not_dying(name => code)";
- my ($name, $code );
+ my ($name, $code);
$name = shift if @_ == 2;
$code = shift;
ref $code eq "CODE" or croak "not_dying(name => code)";
@@ -80,7 +80,7 @@
eval { $code->(); };
my $except = $@;
chomp $except;
- $tb->ok( !$except, "$name not_dying()" ) or diag($except);
+ $tb->ok(!$except, "$name not_dying()") or diag($except);
}
my @bigary = (1) x 500;
@@ -96,7 +96,7 @@
sub leak_free_ok
{
- while(@_)
+ while (@_)
{
my $name = shift;
my $code = shift;
@@ -104,12 +104,13 @@
{
skip 'Test::LeakTrace not installed', 1 unless
$have_test_leak_trace;
local $Test::Builder::Level = $Test::Builder::Level + 1;
- &Test::LeakTrace::no_leaks_ok( $code, "No memory leaks in $name" );
+ &Test::LeakTrace::no_leaks_ok($code, "No memory leaks in $name");
}
}
}
{
+
package DieOnStringify;
use overload '""' => \&stringify;
sub new { bless {}, shift }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/xs/binsert.t
new/List-MoreUtils-XS-0.428/t/xs/binsert.t
--- old/List-MoreUtils-XS-0.426/t/xs/binsert.t 2017-10-02 16:21:20.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/t/xs/binsert.t 2017-12-19 18:19:29.000000000
+0100
@@ -9,7 +9,8 @@
use Test::More;
use Test::LMU;
-SCOPE: {
+SCOPE:
+{
my @list = ();
is(0, (binsert { $_ cmp "Hello" } "Hello", @list), "Inserting into empty
list");
is(1, (binsert { $_ cmp "world" } "world", @list), "Inserting into
one-item list");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/xs/bremove.t
new/List-MoreUtils-XS-0.428/t/xs/bremove.t
--- old/List-MoreUtils-XS-0.426/t/xs/bremove.t 2017-10-02 16:21:20.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/t/xs/bremove.t 2017-12-19 18:19:29.000000000
+0100
@@ -46,9 +46,9 @@
# test from shawnlaffan from GH issue #2 of List-MoreUtils-XS
SCOPE:
{
- my @list = ('somestring');
+ my @list = ('somestring');
my $target = $list[0];
- is ($target, (bremove {$_ cmp $target} @list), 'removed from single item
list');
+ is($target, (bremove { $_ cmp $target } @list), 'removed from single item
list');
}
leak_free_ok(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/xs/occurrences.t
new/List-MoreUtils-XS-0.428/t/xs/occurrences.t
--- old/List-MoreUtils-XS-0.426/t/xs/occurrences.t 2017-10-02
16:21:20.000000000 +0200
+++ new/List-MoreUtils-XS-0.428/t/xs/occurrences.t 2017-12-19
18:19:29.000000000 +0100
@@ -31,7 +31,7 @@
@o = occurrences grep { /\w+/ } @lorem;
my $wc = reduce_0 { defined $b ? $a + $_ * scalar @$b : $a } @o;
- is( $wc, 124, "Words are as many as requested at www.loremipsum.de" );
+ is($wc, 124, "Words are as many as requested at www.loremipsum.de");
}
SCOPE:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/xs/one.t
new/List-MoreUtils-XS-0.428/t/xs/one.t
--- old/List-MoreUtils-XS-0.426/t/xs/one.t 2017-10-02 16:21:20.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/t/xs/one.t 2017-12-19 18:19:29.000000000
+0100
@@ -17,6 +17,7 @@
is_false(one { 0 == $_ } @list);
is_false(one { 1 <= $_ } @list);
is_false(one { !(127 & $_) } @list);
+is_false(one { 0 } ());
leak_free_ok(
one => sub {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/xs/pairwise.t
new/List-MoreUtils-XS-0.428/t/xs/pairwise.t
--- old/List-MoreUtils-XS-0.426/t/xs/pairwise.t 2017-10-02 16:21:20.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/t/xs/pairwise.t 2017-12-19 18:19:29.000000000
+0100
@@ -30,9 +30,11 @@
# sub returns more than two items
@a = (1, 1, 2, 3, 5);
-@b = (2, 3, 5, 7, 11);
+@b = (2, 3, 5, 7, 11, 13);
@c = pairwise { ($a) x $b } @a, @b;
-is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11], "pw8");
+is_deeply(\@c, [(1) x 2, (1) x 3, (2) x 5, (3) x 7, (5) x 11, (undef) x 13],
"pw8");
+is_deeply(\@a, [1, 1, 2, 3, 5], "pw9");
+is_deeply(\@b, [2, 3, 5, 7, 11, 13], "pwX");
(@a, @b) = ();
push @a, int rand(1000) for 0 .. rand(1000);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/xs/reduce_0.t
new/List-MoreUtils-XS-0.428/t/xs/reduce_0.t
--- old/List-MoreUtils-XS-0.426/t/xs/reduce_0.t 2017-10-02 16:21:20.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/t/xs/reduce_0.t 2017-12-19 18:19:29.000000000
+0100
@@ -14,21 +14,21 @@
SCOPE:
{
my @exam_results = (2, 4, 6, 5, 3, 0);
- my $pupil = sum @exam_results;
- my $wa = reduce_0 { $a + ($_+1) * $b / $pupil } @exam_results;
- $wa = sprintf( "%0.2f", $wa );
- is( $wa, 3.15, "weighted average of exam" );
+ my $pupil = sum @exam_results;
+ my $wa = reduce_0 { $a + ($_ + 1) * $b / $pupil } @exam_results;
+ $wa = sprintf("%0.2f", $wa);
+ is($wa, 3.15, "weighted average of exam");
}
leak_free_ok(
'reduce_0' => sub {
my @exam_results = (2, 4, 6, 5, 3, 0);
- my $pupil = 20;
- my $wa = reduce_0 { $a + ($_+1) * $b / $pupil } @exam_results;
+ my $pupil = 20;
+ my $wa = reduce_0 { $a + ($_ + 1) * $b / $pupil }
@exam_results;
},
'reduce_0 X' => sub {
- my @w = map { int(rand(5)) + 1; } 1..100;
- my $c1 = reduce_0 {$a + $w[$_] * $b } 1..100;
+ my @w = map { int(rand(5)) + 1; } 1 .. 100;
+ my $c1 = reduce_0 { $a + $w[$_] * $b } 1 .. 100;
}
);
leak_free_ok(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/xs/reduce_1.t
new/List-MoreUtils-XS-0.428/t/xs/reduce_1.t
--- old/List-MoreUtils-XS-0.426/t/xs/reduce_1.t 2017-10-02 16:21:20.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/t/xs/reduce_1.t 2017-12-19 18:19:29.000000000
+0100
@@ -15,25 +15,25 @@
use Math::Trig;
my $eps = 1e-11;
-if ( $^O eq 'unicos' )
+if ($^O eq 'unicos')
{ # See lib/Math/Complex.pm and t/lib/complex.t.
$eps = 1e-10;
}
sub near ($$$;$)
{
- my $d = $_[1] ? abs( $_[0] / $_[1] - 1 ) : abs( $_[0] );
+ my $d = $_[1] ? abs($_[0] / $_[1] - 1) : abs($_[0]);
local $Test::Builder::Level = $Test::Builder::Level + 1;
- looks_like_number( $_[0] ) or return cmp_ok( $_[0], "eq", $_[1], "near?
$_[0] ~= $_[1]" );
- $_[0] =~ m/nan/i and return cmp_ok( $_[0], "eq", $_[1], "near? $_[0] ~=
$_[1]" );
- $_[0] =~ m/inf/i and return cmp_ok( $_[0], "eq", $_[1], "near? $_[0] ~=
$_[1]" );
+ looks_like_number($_[0]) or return cmp_ok($_[0], "eq", $_[1], "near? $_[0]
~= $_[1]");
+ $_[0] =~ m/nan/i and return cmp_ok($_[0], "eq", $_[1], "near? $_[0] ~=
$_[1]");
+ $_[0] =~ m/inf/i and return cmp_ok($_[0], "eq", $_[1], "near? $_[0] ~=
$_[1]");
my $e = defined $_[3] ? $_[3] : $eps;
- cmp_ok( $d, '<', $e, "$_[2] => near? $_[0] ~= $_[1]" ) or diag("near?
$_[0] ~= $_[1]");
+ cmp_ok($d, '<', $e, "$_[2] => near? $_[0] ~= $_[1]") or diag("near? $_[0]
~= $_[1]");
}
-my $half_pi = reduce_1 { $a * ( (4 * $b * $b) / ((2 * $b - 1) * (2 * $b + 1))
) } 1 .. 750;
+my $half_pi = reduce_1 { $a * ((4 * $b * $b) / ((2 * $b - 1) * (2 * $b + 1)))
} 1 .. 750;
-near( $half_pi, pi/2, "Wallis product", 1e-2 );
+near($half_pi, pi / 2, "Wallis product", 1e-2);
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/xs/reduce_u.t
new/List-MoreUtils-XS-0.428/t/xs/reduce_u.t
--- old/List-MoreUtils-XS-0.426/t/xs/reduce_u.t 2017-10-02 16:21:20.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/t/xs/reduce_u.t 2017-12-19 18:19:29.000000000
+0100
@@ -14,21 +14,21 @@
SCOPE:
{
my @exam_results = (0, 2, 4, 6, 5, 3, 0);
- my $pupil = sum @exam_results;
- my $wa = reduce_u { defined $a ? $a + $_ * $b / $pupil : 0 } @exam_results;
- $wa = sprintf( "%0.2f", $wa );
- is( $wa, 3.15, "weighted average of exam" );
+ my $pupil = sum @exam_results;
+ my $wa = reduce_u { defined $a ? $a + $_ * $b / $pupil : 0 }
@exam_results;
+ $wa = sprintf("%0.2f", $wa);
+ is($wa, 3.15, "weighted average of exam");
}
leak_free_ok(
'reduce_u' => sub {
my @exam_results = (undef, 2, 4, 6, 5, 3, 0);
- my $pupil = 20;
- my $wa = reduce_u { defined $a ? $a + $_ * $b / $pupil : 0 }
@exam_results;
+ my $pupil = 20;
+ my $wa = reduce_u { defined $a ? $a + $_ * $b / $pupil : 0 }
@exam_results;
},
'reduce_u X' => sub {
- my @w = map { int(rand(5)) + 1; } 1..100;
- my $c1 = reduce_u { ($a || 0) + $w[$_] * $b } 1..100;
+ my @w = map { int(rand(5)) + 1; } 1 .. 100;
+ my $c1 = reduce_u { ($a || 0) + $w[$_] * $b } 1 .. 100;
}
);
leak_free_ok(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/List-MoreUtils-XS-0.426/t/xs/samples.t
new/List-MoreUtils-XS-0.428/t/xs/samples.t
--- old/List-MoreUtils-XS-0.426/t/xs/samples.t 2017-10-02 16:21:20.000000000
+0200
+++ new/List-MoreUtils-XS-0.428/t/xs/samples.t 2017-12-19 18:19:29.000000000
+0100
@@ -23,7 +23,7 @@
my @l = (1 .. 10);
my @s = samples 10, @l;
is(scalar @s, 10, "samples delivers 10 out of 10 when used as shuffle");
- my @u = uniq grep {defined $_ } @s;
+ my @u = uniq grep { defined $_ } @s;
is(scalar @u, 10, "samples doesn't add any integer twice");
}
