r3373 - in /packages/libset-object-perl/trunk: Changes.pod META.yml Object.xs README debian/changelog lib/Set/Object.pm

[eloy at users.alioth.debian.org]

Author: eloy
Date: Wed Aug  2 14:09:11 2006
New Revision: 3373

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3373
Log:
eloy: new upstream version

Modified:
    packages/libset-object-perl/trunk/Changes.pod
    packages/libset-object-perl/trunk/META.yml
    packages/libset-object-perl/trunk/Object.xs
    packages/libset-object-perl/trunk/README
    packages/libset-object-perl/trunk/debian/changelog
    packages/libset-object-perl/trunk/lib/Set/Object.pm

Modified: packages/libset-object-perl/trunk/Changes.pod
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libset-object-perl/trunk/Changes.pod?rev=3373&op=diff
==============================================================================
--- packages/libset-object-perl/trunk/Changes.pod (original)
+++ packages/libset-object-perl/trunk/Changes.pod Wed Aug  2 14:09:11 2006
@@ -1,5 +1,15 @@
 
 =head1 REVISION HISTORY FOR Set::Object
+
+=head1 1.17, 1 Aug 2006
+
+=over
+
+=item *
+
+fix compile problem affecting some platforms
+
+=back
 
 =head1 1.16, 18 Jul 2006
 

Modified: packages/libset-object-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libset-object-perl/trunk/META.yml?rev=3373&op=diff
==============================================================================
--- packages/libset-object-perl/trunk/META.yml (original)
+++ packages/libset-object-perl/trunk/META.yml Wed Aug  2 14:09:11 2006
@@ -1,7 +1,7 @@
 # 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.16
+version:      1.17
 version_from: lib/Set/Object.pm
 installdirs:  site
 requires:

Modified: packages/libset-object-perl/trunk/Object.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libset-object-perl/trunk/Object.xs?rev=3373&op=diff
==============================================================================
--- packages/libset-object-perl/trunk/Object.xs (original)
+++ packages/libset-object-perl/trunk/Object.xs Wed Aug  2 14:09:11 2006
@@ -165,6 +165,7 @@
   }
 }
 
+void _cast_magic(ISET* s, SV* sv);
 
 int iset_insert_one(ISET* s, SV* rv)
 {
@@ -268,6 +269,8 @@
 
 	return ins;
 }
+
+void _dispel_magic(ISET* s, SV* sv);
 
 void iset_clear(ISET* s)
 {
@@ -357,6 +360,7 @@
 	   if (mg->mg_type == SET_OBJECT_MAGIC_backref) {
 	     if (last) {
 	       last->mg_moremagic = mg->mg_moremagic;
+	       Safefree(mg);
 	       break;
 	     } else if (mg->mg_moremagic) {
 	       SvMAGIC(sv) = mg->mg_moremagic;
@@ -418,8 +422,8 @@
     while (i >= 0) {
         SPELL_DEBUG("_spell_effect %d", i);
 	if (svp[i] && SvIV(svp[i])) {
+	  ISET* s = INT2PTR(ISET*, SvIV(svp[i]));
 	  SPELL_DEBUG("_spell_effect i = %d, SV = 0x%.8x", i, svp[i]);
-	  ISET* s = INT2PTR(ISET*, SvIV(svp[i]));
 	  if (!s->is_weak)
 	    Perl_croak(aTHX_ "panic: set_object_magic_killbackrefs (flags=%"UVxf")",
 		       (UV)SvFLAGS(svp[i]));

Modified: packages/libset-object-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libset-object-perl/trunk/README?rev=3373&op=diff
==============================================================================
--- packages/libset-object-perl/trunk/README (original)
+++ packages/libset-object-perl/trunk/README Wed Aug  2 14:09:11 2006
@@ -1,4 +1,4 @@
-README for Set::Object 1.16
+README for Set::Object 1.17
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~
 There used to be a reproduction of the man page here, but that's just
 silly.

Modified: packages/libset-object-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libset-object-perl/trunk/debian/changelog?rev=3373&op=diff
==============================================================================
--- packages/libset-object-perl/trunk/debian/changelog (original)
+++ packages/libset-object-perl/trunk/debian/changelog Wed Aug  2 14:09:11 2006
@@ -1,3 +1,9 @@
+libset-object-perl (1.17-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Wed,  2 Aug 2006 16:06:22 +0200
+
 libset-object-perl (1.16-1) unstable; urgency=low
 
   * New upstream release.
@@ -123,5 +129,3 @@
   * Initial Release.
 
  -- Yann Dirson <dirson at debian.org>  Wed, 19 Jul 2000 21:55:03 +0200
-
-

Modified: packages/libset-object-perl/trunk/lib/Set/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libset-object-perl/trunk/lib/Set/Object.pm?rev=3373&op=diff
==============================================================================
--- packages/libset-object-perl/trunk/lib/Set/Object.pm (original)
+++ packages/libset-object-perl/trunk/lib/Set/Object.pm Wed Aug  2 14:09:11 2006
@@ -395,7 +395,7 @@
 
 @EXPORT_OK = qw( ish_int is_int is_string is_double blessed reftype
 		 refaddr is_overloaded is_object is_key set );
-$VERSION = '1.16';
+$VERSION = '1.17';
 
 bootstrap Set::Object $VERSION;