r54148 - in /trunk/libscalar-list-utils-perl: Changes ListUtil.xs META.yml SIGNATURE debian/changelog debian/control debian/copyright 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:58:50 UTC 2010 

Author: jawnsy-guest
Date: Thu Mar 11 23:58:44 2010
New Revision: 54148

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54148
Log:
* New upstream release
* Standards-Version 3.8.4 (no changes)
* Add myself to Uploaders and Copyright

Modified:
    trunk/libscalar-list-utils-perl/Changes
    trunk/libscalar-list-utils-perl/ListUtil.xs
    trunk/libscalar-list-utils-perl/META.yml
    trunk/libscalar-list-utils-perl/SIGNATURE
    trunk/libscalar-list-utils-perl/debian/changelog
    trunk/libscalar-list-utils-perl/debian/control
    trunk/libscalar-list-utils-perl/debian/copyright
    trunk/libscalar-list-utils-perl/lib/List/Util.pm
    trunk/libscalar-list-utils-perl/lib/List/Util/PP.pm
    trunk/libscalar-list-utils-perl/lib/List/Util/XS.pm
    trunk/libscalar-list-utils-perl/lib/Scalar/Util.pm
    trunk/libscalar-list-utils-perl/lib/Scalar/Util/PP.pm
    trunk/libscalar-list-utils-perl/t/max.t
    trunk/libscalar-list-utils-perl/t/min.t

Modified: trunk/libscalar-list-utils-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/Changes?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/Changes (original)
+++ trunk/libscalar-list-utils-perl/Changes Thu Mar 11 23:58:44 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: trunk/libscalar-list-utils-perl/ListUtil.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/ListUtil.xs?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/ListUtil.xs (original)
+++ trunk/libscalar-list-utils-perl/ListUtil.xs Thu Mar 11 23:58:44 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: trunk/libscalar-list-utils-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/META.yml?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/META.yml (original)
+++ trunk/libscalar-list-utils-perl/META.yml Thu Mar 11 23:58:44 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: trunk/libscalar-list-utils-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/SIGNATURE?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/SIGNATURE (original)
+++ trunk/libscalar-list-utils-perl/SIGNATURE Thu Mar 11 23:58:44 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: trunk/libscalar-list-utils-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/debian/changelog?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/debian/changelog (original)
+++ trunk/libscalar-list-utils-perl/debian/changelog Thu Mar 11 23:58:44 2010
@@ -1,3 +1,11 @@
+libscalar-list-utils-perl (1:1.23-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * Standards-Version 3.8.4 (no changes)
+  * Add myself to Uploaders and Copyright
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Thu, 11 Mar 2010 19:25:48 -0500
+
 libscalar-list-utils-perl (1:1.22-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libscalar-list-utils-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/debian/control?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/debian/control (original)
+++ trunk/libscalar-list-utils-perl/debian/control Thu Mar 11 23:58:44 2010
@@ -3,8 +3,9 @@
 Priority: optional
 Build-Depends: debhelper (>= 7), perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
-Standards-Version: 3.8.3
+Uploaders: Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>,
+ Jonathan Yu <jawnsy at cpan.org>
+Standards-Version: 3.8.4
 Homepage: http://search.cpan.org/dist/Scalar-List-Utils/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libscalar-list-utils-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libscalar-list-utils-perl/
@@ -12,7 +13,7 @@
 Package: libscalar-list-utils-perl
 Architecture: any
 Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends}
-Description: Perl modules for Common Scalar and List utility subroutines
+Description: modules for Common Scalar and List utility subroutines
  List::Util contains a selection of subroutines that people have expressed
  would be nice to have in the perl core, but the usage would not really be
  high enough to warrant the use of a keyword, and the size so small such that

Modified: trunk/libscalar-list-utils-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/debian/copyright?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/debian/copyright (original)
+++ trunk/libscalar-list-utils-perl/debian/copyright Thu Mar 11 23:58:44 2010
@@ -31,7 +31,8 @@
 License: Artistic or GPL-1+
 
 Files: debian/*
-Copyright: 2009, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
+Copyright: 2010, Jonathan Yu <jawnsy at cpan.org>
+ 2009, Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
 License: Artistic or GPL-1+
 
 License: Artistic

Modified: trunk/libscalar-list-utils-perl/lib/List/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/lib/List/Util.pm?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/lib/List/Util.pm (original)
+++ trunk/libscalar-list-utils-perl/lib/List/Util.pm Thu Mar 11 23:58:44 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: trunk/libscalar-list-utils-perl/lib/List/Util/PP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/lib/List/Util/PP.pm?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/lib/List/Util/PP.pm (original)
+++ trunk/libscalar-list-utils-perl/lib/List/Util/PP.pm Thu Mar 11 23:58:44 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: trunk/libscalar-list-utils-perl/lib/List/Util/XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/lib/List/Util/XS.pm?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/lib/List/Util/XS.pm (original)
+++ trunk/libscalar-list-utils-perl/lib/List/Util/XS.pm Thu Mar 11 23:58:44 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: trunk/libscalar-list-utils-perl/lib/Scalar/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/lib/Scalar/Util.pm?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/lib/Scalar/Util.pm (original)
+++ trunk/libscalar-list-utils-perl/lib/Scalar/Util.pm Thu Mar 11 23:58:44 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: trunk/libscalar-list-utils-perl/lib/Scalar/Util/PP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/lib/Scalar/Util/PP.pm?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/lib/Scalar/Util/PP.pm (original)
+++ trunk/libscalar-list-utils-perl/lib/Scalar/Util/PP.pm Thu Mar 11 23:58:44 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: trunk/libscalar-list-utils-perl/t/max.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/t/max.t?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/t/max.t (original)
+++ trunk/libscalar-list-utils-perl/t/max.t Thu Mar 11 23:58:44 2010
@@ -50,6 +50,7 @@
 use overload
   '""' => sub { ${$_[0]} },
   '+0' => sub { ${$_[0]} },
+  '>'  => sub { ${$_[0]} > ${$_[1]} },
   fallback => 1;
   sub new {
     my $class = shift;

Modified: trunk/libscalar-list-utils-perl/t/min.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libscalar-list-utils-perl/t/min.t?rev=54148&op=diff
==============================================================================
--- trunk/libscalar-list-utils-perl/t/min.t (original)
+++ trunk/libscalar-list-utils-perl/t/min.t Thu Mar 11 23:58:44 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