r54146 - in /branches/upstream/libscalar-list-utils-perl/current: Changes ListUtil.xs META.yml SIGNATURE lib/List/Util.pm lib/List/Util/PP.pm lib/List/Util/XS.pm lib/Scalar/Util.pm lib/Scalar/Util/PP.pm t/max.t t/min.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Thu Mar 11 23:56:50 UTC 2010
Author: jawnsy-guest
Date: Thu Mar 11 23:56:45 2010
New Revision: 54146
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54146
Log:
[svn-upgrade] Integrating new upstream version, libscalar-list-utils-perl (1.23)
Modified:
branches/upstream/libscalar-list-utils-perl/current/Changes
branches/upstream/libscalar-list-utils-perl/current/ListUtil.xs
branches/upstream/libscalar-list-utils-perl/current/META.yml
branches/upstream/libscalar-list-utils-perl/current/SIGNATURE
branches/upstream/libscalar-list-utils-perl/current/lib/List/Util.pm
branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/PP.pm
branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/XS.pm
branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util.pm
branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util/PP.pm
branches/upstream/libscalar-list-utils-perl/current/t/max.t
branches/upstream/libscalar-list-utils-perl/current/t/min.t
Modified: branches/upstream/libscalar-list-utils-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/Changes?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/Changes (original)
+++ branches/upstream/libscalar-list-utils-perl/current/Changes Thu Mar 11 23:56:45 2010
@@ -1,3 +1,13 @@
+1.23 -- Wed Mar 10 20:50:00 CST 2010
+
+ * Add a test file to ensure 'GETMAGIC' called once [gfx]
+ * "GETMAGIC" should be called only once [gfx]
+ * Use PERL_NO_GET_CONTEXT for efficiency (see perlguts) [gfx]
+ * Don't care about dVAR. ExtUtils::ParseXS deals with it. [gfx]
+ * t/p_max.t, t/p_min.t fail on perl5.8.1. [tokuhirom]
+ * avoid non-portable warnings
+ * Fix PP::reftype in edge cases [gfx]
+
1.22 -- Sat Nov 14 09:26:15 CST 2009
* silence a compiler warning about an unreferenced local variable [Steve Hay]
Modified: branches/upstream/libscalar-list-utils-perl/current/ListUtil.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/ListUtil.xs?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/ListUtil.xs (original)
+++ branches/upstream/libscalar-list-utils-perl/current/ListUtil.xs Thu Mar 11 23:56:45 2010
@@ -2,7 +2,7 @@
* This program is free software; you can redistribute it and/or
* modify it under the same terms as Perl itself.
*/
-
+#define PERL_NO_GET_CONTEXT /* we want efficiency */
#include <EXTERN.h>
#include <perl.h>
#include <XSUB.h>
@@ -66,7 +66,7 @@
# ifndef SvTAINTED
static bool
-sv_tainted(SV *sv)
+sv_tainted(pTHX_ SV *sv)
{
if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv)) {
MAGIC *mg = mg_find(sv, 't');
@@ -77,7 +77,7 @@
}
# define SvTAINTED_on(sv) sv_magic((sv), Nullsv, 't', Nullch, 0)
-# define SvTAINTED(sv) (SvMAGICAL(sv) && sv_tainted(sv))
+# define SvTAINTED(sv) (SvMAGICAL(sv) && sv_tainted(aTHX_ sv))
# endif
# define PL_defgv defgv
# define PL_op op
@@ -124,10 +124,6 @@
#ifndef dNOOP
#define dNOOP extern int Perl___notused PERL_UNUSED_DECL
-#endif
-
-#ifndef dVAR
-#define dVAR dNOOP
#endif
#ifndef GvSVn
@@ -282,7 +278,7 @@
PROTOTYPE: &@
CODE:
{
- dVAR; dMULTICALL;
+ dMULTICALL;
SV *ret = sv_newmortal();
int index;
GV *agv,*bgv,*gv;
@@ -321,7 +317,7 @@
PROTOTYPE: &@
CODE:
{
- dVAR; dMULTICALL;
+ dMULTICALL;
int index;
GV *gv;
HV *stash;
@@ -359,7 +355,6 @@
PROTOTYPE: @
CODE:
{
- dVAR;
int index;
#if (PERL_VERSION < 9)
struct op dmy_op;
@@ -438,7 +433,7 @@
{
if (SvMAGICAL(sv))
mg_get(sv);
- if(!sv_isobject(sv)) {
+ if(!(SvROK(sv) && SvOBJECT(SvRV(sv)))) {
XSRETURN_UNDEF;
}
RETVAL = (char*)sv_reftype(SvRV(sv),TRUE);
Modified: branches/upstream/libscalar-list-utils-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/META.yml?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/META.yml (original)
+++ branches/upstream/libscalar-list-utils-perl/current/META.yml Thu Mar 11 23:56:45 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Scalar-List-Utils
-version: 1.22
+version: 1.23
abstract: Common Scalar and List utility subroutines
author:
- Graham Barr <gbarr at cpan.org>
Modified: branches/upstream/libscalar-list-utils-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/SIGNATURE?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/SIGNATURE (original)
+++ branches/upstream/libscalar-list-utils-perl/current/SIGNATURE Thu Mar 11 23:56:45 2010
@@ -14,18 +14,18 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 facaaaed47a04057860c070328463d5c3605eabb Changes
-SHA1 faf2e17869e969c5d27612d3ec5b3d2026b2abbc ListUtil.xs
+SHA1 b448316a9488bc0fda5eb2c8273e92b5e9f37184 Changes
+SHA1 57799e6f680fd28dd390cb280998763344d70cf9 ListUtil.xs
SHA1 0f3bae3ec5030a45e73e7eadffd03dd5bc0ea769 MANIFEST
-SHA1 a2a0eda95a627fcb80b27cc65c58ef3d301d8086 META.yml
+SHA1 c2c986948dafb88c94e5d9290b3d104f92b9fcc8 META.yml
SHA1 a776a81ab39fa970ccb3f3229e3638dbd33dc483 Makefile.PL
SHA1 9ab2ca5f2af3bd41a763382158f2c6bc1ba36f41 README
SHA1 61f69d6e90bacbcc85be1baa75cc5db11818beac XS.pp
-SHA1 f787f6b9871bce8734fdeff01cda2105f2ceabf0 lib/List/Util.pm
-SHA1 e7f20766416700a6673bf5e5d767e2edd42d4248 lib/List/Util/PP.pm
-SHA1 9e17c6c3fd382fc366479f1a418260387717e6ef lib/List/Util/XS.pm
-SHA1 c6e8c1c3e97eebf2f9b96331e693aa0944080725 lib/Scalar/Util.pm
-SHA1 ed50f05c578d481aa55343eb8b3ec7c51eb23933 lib/Scalar/Util/PP.pm
+SHA1 a12be5d496da3e098692f42f7732e7e93eae5231 lib/List/Util.pm
+SHA1 623f4856a5e18a5e13485db8c4260dd1b24bb5a0 lib/List/Util/PP.pm
+SHA1 195038e6b7d50cb600324139abac0a1e7c4c6389 lib/List/Util/XS.pm
+SHA1 e5d32f9df818a95934a7b5b7c828c1e71e547bd6 lib/Scalar/Util.pm
+SHA1 70018805b86d0d8f118822fa947074c869c2c55a lib/Scalar/Util/PP.pm
SHA1 b0fa4782bf655d5d6356b200d3a0375d31b6ec15 multicall.h
SHA1 7e3ac53646e628df2c5e4bd4783ef08a10c8e195 t/00version.t
SHA1 5ea6b4cb8a3095fc007e20cb802831affe3cc8ef t/blessed.t
@@ -34,9 +34,9 @@
SHA1 d9df7844d53870d57e5991d2bc2397c61a9dbaec t/first.t
SHA1 8c5cc4ac342118b5251e69060b9fef4027d28eb4 t/isvstring.t
SHA1 cbbb3a1ab3652f886b93e9f48eca086d0e392975 t/lln.t
-SHA1 8957c8a42a557b4e474afe1effc9d00a451092e8 t/max.t
+SHA1 2052921abb0576fe84f0f8181fddda6bf469da97 t/max.t
SHA1 9dc923c7b6dda504fb6e1cf78e7e2d315e69c3aa t/maxstr.t
-SHA1 e3813e3a977d2bd6d80b9ae2a20b3351b94a897f t/min.t
+SHA1 7447e71c51828165e2a5baba4b87f6038f743c86 t/min.t
SHA1 f9e7198d610277d124d03f21008f290961c6d7bd t/minstr.t
SHA1 cad02536de5f4ebc0b54a94400e1251d1b84f431 t/openhan.t
SHA1 75abf71ddd30c38c7e5dd6b12f48844bce19b227 t/p_00version.t
@@ -68,7 +68,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (Darwin)
-iEYEARECAAYFAkr+zOkACgkQR0BL4gbYw3TuoQCfT4TIAlH+OWNvJrCE9WPjYpCD
-NCsAnjEEO+6wQa7n7ycTAugwa4Dy6p5z
-=ROh1
+iEYEARECAAYFAkuYXKYACgkQR0BL4gbYw3ToVACcCuyLBov10iXJ3o3ApU/RFGsW
+eisAoIFWycEVWtBM9fjwX1x5c0QvNkgY
+=MyeA
-----END PGP SIGNATURE-----
Modified: branches/upstream/libscalar-list-utils-perl/current/lib/List/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/lib/List/Util.pm?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/lib/List/Util.pm (original)
+++ branches/upstream/libscalar-list-utils-perl/current/lib/List/Util.pm Thu Mar 11 23:56:45 2010
@@ -14,7 +14,7 @@
@ISA = qw(Exporter);
@EXPORT_OK = qw(first min max minstr maxstr reduce sum shuffle);
-$VERSION = "1.22";
+$VERSION = "1.23";
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
Modified: branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/PP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/PP.pm?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/PP.pm (original)
+++ branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/PP.pm Thu Mar 11 23:56:45 2010
@@ -13,7 +13,7 @@
@ISA = qw(Exporter);
@EXPORT = qw(first min max minstr maxstr reduce sum shuffle);
-$VERSION = "1.22";
+$VERSION = "1.23";
$VERSION = eval $VERSION;
sub reduce (&@) {
Modified: branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/XS.pm?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/XS.pm (original)
+++ branches/upstream/libscalar-list-utils-perl/current/lib/List/Util/XS.pm Thu Mar 11 23:56:45 2010
@@ -3,7 +3,7 @@
use vars qw($VERSION);
use List::Util;
-$VERSION = "1.22"; # FIXUP
+$VERSION = "1.23"; # FIXUP
$VERSION = eval $VERSION; # FIXUP
sub _VERSION { # FIXUP
Modified: branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util.pm?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util.pm (original)
+++ branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util.pm Thu Mar 11 23:56:45 2010
@@ -13,7 +13,7 @@
@ISA = qw(Exporter);
@EXPORT_OK = qw(blessed dualvar reftype weaken isweak tainted readonly openhandle refaddr isvstring looks_like_number set_prototype);
-$VERSION = "1.22";
+$VERSION = "1.23";
$VERSION = eval $VERSION;
unless (defined &dualvar) {
Modified: branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util/PP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util/PP.pm?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util/PP.pm (original)
+++ branches/upstream/libscalar-list-utils-perl/current/lib/Scalar/Util/PP.pm Thu Mar 11 23:56:45 2010
@@ -16,7 +16,7 @@
@ISA = qw(Exporter);
@EXPORT = qw(blessed reftype tainted readonly refaddr looks_like_number);
-$VERSION = "1.22";
+$VERSION = "1.23";
$VERSION = eval $VERSION;
sub blessed ($) {
@@ -41,20 +41,19 @@
$addr =~ /0x(\w+)/;
local $^W;
+ no warnings 'portable';
hex($1);
}
{
my %tmap = qw(
- B::HV HASH
- B::AV ARRAY
- B::CV CODE
- B::IO IO
- B::NULL SCALAR
- B::NV SCALAR
- B::PV SCALAR
- B::GV GLOB
- B::RV REF
+ B::NULL SCALAR
+
+ B::HV HASH
+ B::AV ARRAY
+ B::CV CODE
+ B::IO IO
+ B::GV GLOB
B::REGEXP REGEXP
);
Modified: branches/upstream/libscalar-list-utils-perl/current/t/max.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/t/max.t?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/t/max.t (original)
+++ branches/upstream/libscalar-list-utils-perl/current/t/max.t Thu Mar 11 23:56:45 2010
@@ -50,6 +50,7 @@
use overload
'""' => sub { ${$_[0]} },
'+0' => sub { ${$_[0]} },
+ '>' => sub { ${$_[0]} > ${$_[1]} },
fallback => 1;
sub new {
my $class = shift;
Modified: branches/upstream/libscalar-list-utils-perl/current/t/min.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-list-utils-perl/current/t/min.t?rev=54146&op=diff
==============================================================================
--- branches/upstream/libscalar-list-utils-perl/current/t/min.t (original)
+++ branches/upstream/libscalar-list-utils-perl/current/t/min.t Thu Mar 11 23:56:45 2010
@@ -50,6 +50,7 @@
use overload
'""' => sub { ${$_[0]} },
'+0' => sub { ${$_[0]} },
+ '<' => sub { ${$_[0]} < ${$_[1]} },
fallback => 1;
sub new {
my $class = shift;
More information about the Pkg-perl-cvs-commits
mailing list