},
'Scalar-List-Utils' => {
- 'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.37.tar.gz',
+ 'DISTRIBUTION' => 'PEVANS/Scalar-List-Utils-1.38.tar.gz',
'FILES' => q[cpan/Scalar-List-Utils],
},
# define croak_no_modify() croak("%s", PL_no_modify)
#endif
-#if PERL_VERSION < 12
-static void Perl_ck_warner(pTHX_ U32 err, const char* pat, ...)
-{
- if (Perl_ckwarn(aTHX_ err)) {
- va_list args;
- va_start(args, pat);
- vwarner(err, pat, &args);
- va_end(args);
- }
-}
-#endif
-
MODULE=List::Util PACKAGE=List::Util
void
if (!SvROK(sv))
croak("Can't unweaken a nonreference");
else if (!SvWEAKREF(sv)) {
- Perl_ck_warner(aTHX_ packWARN(WARN_MISC), "Reference is not weak");
+ if(ckWARN(WARN_MISC))
+ warn("Reference is not weak");
return;
}
else if (SvREADONLY(sv)) croak_no_modify();
all any first min max minstr maxstr none notall product reduce sum sum0 shuffle
pairmap pairgrep pairfirst pairs pairkeys pairvalues
);
-our $VERSION = "1.37";
+our $VERSION = "1.38";
our $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
use strict;
use List::Util;
-our $VERSION = "1.37"; # FIXUP
+our $VERSION = "1.38"; # FIXUP
$VERSION = eval $VERSION; # FIXUP
1;
dualvar isdual isvstring looks_like_number openhandle readonly set_prototype tainted
);
-our $VERSION = "1.37";
+our $VERSION = "1.38";
$VERSION = eval $VERSION;
our @EXPORT_FAIL;
=item *
+L<List::Util> has been upgraded from version 1.37 to 1.38.
+
+A backwards-compatibility issue with older perls has been fixed. [cpan #92363]
+
+=item *
+
L<warnings> has been upgraded from version 1.21 to 1.22.
C<< use warnings "FATAL"; >> now implies C<< "all" >>, and similarly