r1222 - in packages/libset-object-perl/branches/upstream/current: . lib/Set

[Gunnar Wolf]

Author: gwolf
Date: 2005-07-12 10:36:49 +0000 (Tue, 12 Jul 2005)
New Revision: 1222

Modified:
   packages/libset-object-perl/branches/upstream/current/Changes
   packages/libset-object-perl/branches/upstream/current/META.yml
   packages/libset-object-perl/branches/upstream/current/Object.xs
   packages/libset-object-perl/branches/upstream/current/README
   packages/libset-object-perl/branches/upstream/current/lib/Set/Object.pm
Log:
Load /tmp/tmp.hjzBk2/libset-object-perl-1.11 into
packages/libset-object-perl/branches/upstream/current.


Modified: packages/libset-object-perl/branches/upstream/current/Changes
===================================================================
--- packages/libset-object-perl/branches/upstream/current/Changes	2005-07-12 10:29:52 UTC (rev 1221)
+++ packages/libset-object-perl/branches/upstream/current/Changes	2005-07-12 10:36:49 UTC (rev 1222)
@@ -86,3 +86,8 @@
 
 1.10  2 Apr 2005
 	- added 'set()' constructor and use-as-array-ref interface
+
+1.11 27 Apr 2005
+	- removed debugging &_ func (was causing strange errors on
+	  5.9.1)
+

Modified: packages/libset-object-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libset-object-perl/branches/upstream/current/META.yml	2005-07-12 10:29:52 UTC (rev 1221)
+++ packages/libset-object-perl/branches/upstream/current/META.yml	2005-07-12 10:36:49 UTC (rev 1222)
@@ -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.10
+version:      1.11
 version_from: lib/Set/Object.pm
 installdirs:  site
 requires:

Modified: packages/libset-object-perl/branches/upstream/current/Object.xs
===================================================================
--- packages/libset-object-perl/branches/upstream/current/Object.xs	2005-07-12 10:29:52 UTC (rev 1221)
+++ packages/libset-object-perl/branches/upstream/current/Object.xs	2005-07-12 10:36:49 UTC (rev 1222)
@@ -358,27 +358,6 @@
       XSRETURN_IV(inserted);
   
 void
-_(self, ...)
-     SV* self;
-
-     CODE:
-      ISET* s = (ISET*) SvIV(SvRV(self));
-      SV* flat;
-
-      POPs;
-
-      if (!s->flat) {
-	IF_INSERT_DEBUG(warn("iset_internal(%x): creating hashes", s));
-	s->flat = newHV();
-      }
-
-      flat = newRV_inc(s->flat);
-	
-      SvREFCNT_inc(flat);
-      PUSHs(sv_2mortal(flat));
-      XSRETURN(1);
-     
-void
 remove(self, ...)
    SV* self;
 

Modified: packages/libset-object-perl/branches/upstream/current/README
===================================================================
--- packages/libset-object-perl/branches/upstream/current/README	2005-07-12 10:29:52 UTC (rev 1221)
+++ packages/libset-object-perl/branches/upstream/current/README	2005-07-12 10:36:49 UTC (rev 1222)
@@ -3,12 +3,13 @@
 
 SYNOPSIS
       use Set::Object;
-      $set = Set::Object->new();
 
+      my $set = set();            # or Set::Object->new()
+
       $set->insert(@thingies);
       $set->remove(@thingies);
 
-      @items = $set->elements;
+      @items = @$set;             # or $set->members;
 
       $union = $set1 + $set2;
       $intersection = $set1 * $set2;
@@ -280,7 +281,8 @@
 AUTHOR
     Original Set::Object module by Jean-Louis Leroy, <jll@skynet.be>
 
-    Crack-fueled enhancements courtesy of Sam Vilain, <samv@cpan.org>
+    Set::Scalar compatibility, XS debugging and other maintainership
+    courtesy of Sam Vilain, <samv@cpan.org>
 
 LICENCE
     Copyright (c) 1998-1999, Jean-Louis Leroy. All Rights Reserved. This

Modified: packages/libset-object-perl/branches/upstream/current/lib/Set/Object.pm
===================================================================
--- packages/libset-object-perl/branches/upstream/current/lib/Set/Object.pm	2005-07-12 10:29:52 UTC (rev 1221)
+++ packages/libset-object-perl/branches/upstream/current/lib/Set/Object.pm	2005-07-12 10:36:49 UTC (rev 1222)
@@ -367,7 +367,7 @@
 @EXPORT = qw(set);
 @EXPORT_OK = qw( ish_int is_int is_string is_double blessed reftype
 		 refaddr is_overloaded is_object is_key );
-$VERSION = '1.10';
+$VERSION = '1.11';
 
 bootstrap Set::Object $VERSION;