r60479 - in /trunk/libset-object-perl: Changes.pod META.yml Object.xs SIGNATURE debian/changelog lib/Set/Object.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Thu Jul 22 11:48:13 UTC 2010
Author: ansgar-guest
Date: Thu Jul 22 11:48:07 2010
New Revision: 60479
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60479
Log:
IGNORE-VERSION: 1.28
Portability changes that do not affect Debian.
Modified:
trunk/libset-object-perl/Changes.pod
trunk/libset-object-perl/META.yml
trunk/libset-object-perl/Object.xs
trunk/libset-object-perl/SIGNATURE
trunk/libset-object-perl/debian/changelog
trunk/libset-object-perl/lib/Set/Object.pm
Modified: trunk/libset-object-perl/Changes.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-object-perl/Changes.pod?rev=60479&op=diff
==============================================================================
--- trunk/libset-object-perl/Changes.pod (original)
+++ trunk/libset-object-perl/Changes.pod Thu Jul 22 11:48:07 2010
@@ -2,6 +2,21 @@
=encoding utf8
=head1 REVISION HISTORY FOR Set::Object
+
+=head1 1.28, 22 Jul 2010
+
+=over
+
+=item *
+
+Fixed a portability concern for some platforms' C compilers (that do
+not support //-style comments) - RT#52690
+
+=item *
+
+Valid SIGNATURE file - RT#50492
+
+=back
=head1 1.27, 15 Jan 2009
Modified: trunk/libset-object-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-object-perl/META.yml?rev=60479&op=diff
==============================================================================
--- trunk/libset-object-perl/META.yml (original)
+++ trunk/libset-object-perl/META.yml Thu Jul 22 11:48:07 2010
@@ -1,11 +1,22 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Set-Object
-version: 1.27
-version_from: lib/Set/Object.pm
-installdirs: site
+--- #YAML:1.0
+name: Set-Object
+version: 1.28
+abstract: Unordered collections (sets) of Perl Objects
+author:
+ - Jean-Louis Leroy and Sam Vilain
+license: Artistic
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
requires:
- Scalar::Util: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30_01
+ Scalar::Util: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.55_02
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libset-object-perl/Object.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-object-perl/Object.xs?rev=60479&op=diff
==============================================================================
--- trunk/libset-object-perl/Object.xs (original)
+++ trunk/libset-object-perl/Object.xs Thu Jul 22 11:48:07 2010
@@ -17,14 +17,14 @@
#define _warn warn
#endif
-// for debugging object-related functions
+/* for debugging object-related functions */
#define IF_DEBUG(e)
-// for debugging scalar-related functions
+/* for debugging scalar-related functions */
#define IF_REMOVE_DEBUG(e)
#define IF_INSERT_DEBUG(e)
-// for debugging weakref-related functions
+/* for debugging weakref-related functions */
#define IF_SPELL_DEBUG(e)
#if (PERL_VERSION > 7) || ( (PERL_VERSION == 7)&&( PERL_SUBVERSION > 2))
@@ -106,7 +106,6 @@
if (!SvOK(sv))
return 0;
- //SvGETMAGIC(sv);
key = SvPV(sv, len);
IF_INSERT_DEBUG(_warn("iset_insert_scalar(%x): sv (%x, rc = %d, str= '%s')!", s, sv, SvREFCNT(sv), SvPV_nolen(sv)));
@@ -139,8 +138,6 @@
return 0;
}
- //DEBUG("Checking for existance of %s", SvPV_nolen(sv));
- //SvGETMAGIC(sv);
IF_REMOVE_DEBUG(_warn("iset_remove_scalar(%x): sv (%x, rc = %d, str= '%s')!", s, sv, SvREFCNT(sv), SvPV_nolen(sv)));
key = SvPV(sv, len);
@@ -593,14 +590,12 @@
SV* isv;
New(0, s, 1, ISET);
- //_warn("created set id = %x", s);
s->elems = 0;
s->bucket = 0;
s->buckets = 0;
s->flat = 0;
s->is_weak = 0;
- // _warning: cast from pointer to integer of different size
isv = newSViv( PTR2IV(s) );
sv_2mortal(isv);
@@ -675,7 +670,6 @@
if (s->flat) {
if (HvKEYS(s->flat)) {
- //_warn("got some keys: %d\n", HvKEYS(s->flat));
XSRETURN_UNDEF;
}
}
@@ -806,8 +800,6 @@
sv_bless(el, SvSTASH(*el_iter));
}
PUSHs(sv_2mortal(el));
- //XPUSHs(el);
- //PUSHs(el);
}
}
@@ -820,7 +812,6 @@
PUSHs(HeSVKEY_force(he));
}
}
-//_warn("that's all, folks");
void
clear(self)
@@ -1016,10 +1007,6 @@
CODE:
{
if(SvROK(sv)) {
- // Don't return undef if not a valid ref - return 0 instead
- // (less "Use of uninitialised value..." messages)
-
- // XSRETURN_UNDEF;
RETVAL = PTR2UV(SvRV(sv));
} else {
RETVAL = 0;
@@ -1036,42 +1023,41 @@
CODE:
double dutch;
int innit;
- STRLEN lp; // world famous in NZ
+ STRLEN lp;
SV * MH;
- // This function returns the integer value of a passed scalar, as
- // long as the scalar can reasonably considered to already be a
- // representation of an integer. This means if you want strings to
- // be interpreted as integers, you're going to have to add 0 to
- // them.
+ /* This function returns the integer value of a passed scalar, as
+ long as the scalar can reasonably considered to already be a
+ representation of an integer. This means if you want strings to
+ be interpreted as integers, you're going to have to add 0 to
+ them. */
if (SvMAGICAL(sv)) {
- // probably a tied scalar
- //mg_get(sv);
+ /* probably a tied scalar */
Perl_croak(aTHX_ "Tied variables not supported");
}
if (SvAMAGIC(sv)) {
- // an overloaded variable. need to actually call a function to
- // get its value.
+ /* an overloaded variable. need to actually call a function to
+ get its value. */
Perl_croak(aTHX_ "Overloaded variables not supported");
}
if (SvNIOKp(sv)) {
- // NOK - the scalar is a double
+ /* NOK - the scalar is a double */
if (SvPOKp(sv)) {
- // POK - the scalar is also a string.
-
- // we have to be careful; a scalar "2am" or, even worse, "2e6"
- // may satisfy this condition if it has been evaluated in
- // numeric context. Remember, we are testing that the value
- // could already be considered an _integer_, and AFAIC 2e6 and
- // 2.0 are floats, end of story.
-
- // So, we stringify the numeric part of the passed SV, turn off
- // the NOK bit on the scalar, so as to perform a string
- // comparison against the passed in value. If it is not the
- // same, then we almost certainly weren't given an integer.
+ /* POK - the scalar is also a string. */
+
+ /* we have to be careful; a scalar "2am" or, even worse, "2e6"
+ may satisfy this condition if it has been evaluated in
+ numeric context. Remember, we are testing that the value
+ could already be considered an _integer_, and AFAIC 2e6 and
+ 2.0 are floats, end of story. */
+
+ /* So, we stringify the numeric part of the passed SV, turn off
+ the NOK bit on the scalar, so as to perform a string
+ comparison against the passed in value. If it is not the
+ same, then we almost certainly weren't given an integer. */
if (SvIOKp(sv)) {
MH = newSViv(SvIV(sv));
@@ -1087,7 +1073,7 @@
}
if (SvNOKp(sv)) {
- // How annoying - it's a double
+ /* How annoying - it's a double */
dutch = SvNV(sv);
if (SvIOKp(sv)) {
innit = SvIV(sv);
Modified: trunk/libset-object-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-object-perl/SIGNATURE?rev=60479&op=diff
==============================================================================
--- trunk/libset-object-perl/SIGNATURE (original)
+++ trunk/libset-object-perl/SIGNATURE Thu Jul 22 11:48:07 2010
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.55.
+signed via the Module::Signature module, version 0.61.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -14,12 +14,12 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 1b613ef2c114e22986c2521c6237c9ad60148dfd Changes.pod
+SHA1 9083e3c7f3b247405b838cea67278b7684e36e8d Changes.pod
SHA1 816639c05c69373b63a93333c3e7e60a87866e56 MANIFEST
SHA1 c826cfdec5efc768c4a6eaec8d690b4f309c03d0 Makefile.PL
-SHA1 e58e8f50f7f0b4e2e1fdc5ef6f47c3a969eff01b Object.xs
+SHA1 8e8a877750f1f3fbdc5240a86246ff4399c1184f Object.xs
SHA1 5df26a8f141049c2a8c277417af071782808300b README
-SHA1 d76039ec26a187ccfbad98b3a6505d8135fc7eb5 lib/Set/Object.pm
+SHA1 b37bd889c05b351e0ad41238fed62590ac85db4b lib/Set/Object.pm
SHA1 3ee3d2b72d4130ed27f8d24a2625fa22895e52ca lib/Set/Object/Weak.pm
SHA1 f04d25338c1e35bda69ac5eda0bc672e10ca5b6f ppport.h
SHA1 213b597a69c1f909d585a14a6a094a25c3e684af t/ingy/arrayref.t
@@ -66,9 +66,9 @@
SHA1 908f3fedbcff83d7ecca66c0b4ef99aa5bd69481 t/scalar/union.t
SHA1 31d6d80a33dd2da72ab10b51bb272c24ad556f89 t/scalar/unique.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.6 (GNU/Linux)
+Version: GnuPG v1.4.10 (GNU/Linux)
-iEYEARECAAYFAklunroACgkQ/AZAiGayWEP7OgCfbTkbqL8sI7LYWXfcbR0rFenV
-NWQAoLYZeengAT58Pr471emLtFZhRFO1
-=6Jis
+iEYEARECAAYFAkxH4wAACgkQ/AZAiGayWEO7uQCfQ6rsTZDG4YkKd6qAiSC9xkDN
+UGMAoKYJYoM5Chf0efBN6voo25H9yzXs
+=YmFY
-----END PGP SIGNATURE-----
Modified: trunk/libset-object-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-object-perl/debian/changelog?rev=60479&op=diff
==============================================================================
--- trunk/libset-object-perl/debian/changelog (original)
+++ trunk/libset-object-perl/debian/changelog Thu Jul 22 11:48:07 2010
@@ -1,8 +1,12 @@
-libset-object-perl (1.27-2) UNRELEASED; urgency=low
-
+libset-object-perl (1.28-1) UNRELEASED; urgency=low
+
+ IGNORE-VERSION: 1.28
+ Portability changes that do not affect Debian.
+
+ [ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- Nathan Handler <nhandler at ubuntu.com> Sat, 06 Jun 2009 01:37:12 +0000
+ -- Ansgar Burchardt <ansgar at 43-1.org> Thu, 22 Jul 2010 20:46:24 +0900
libset-object-perl (1.27-1) unstable; urgency=low
Modified: trunk/libset-object-perl/lib/Set/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-object-perl/lib/Set/Object.pm?rev=60479&op=diff
==============================================================================
--- trunk/libset-object-perl/lib/Set/Object.pm (original)
+++ trunk/libset-object-perl/lib/Set/Object.pm Thu Jul 22 11:48:07 2010
@@ -509,7 +509,7 @@
@EXPORT_OK = qw( ish_int is_int is_string is_double blessed reftype
refaddr is_overloaded is_object is_key set weak_set );
-$VERSION = '1.27';
+$VERSION = '1.28';
bootstrap Set::Object $VERSION;
@@ -958,7 +958,6 @@
sub STORABLE_thaw {
#print Dump $_ foreach (@_);
- $DB::single = 1;
if ( $_[2] ) {
if ( $_[2] eq "v2" ) {
@_ = (@_[0,1], "", @{ $_[3] });
More information about the Pkg-perl-cvs-commits
mailing list