r23966 - in /trunk/libtree-redblack-perl: Changes MANIFEST META.yml README RedBlack.pm debian/changelog t/

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Aug  8 19:00:06 2008
New Revision: 23966

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=23966
Log:
New upstream release

Added:
    trunk/libtree-redblack-perl/META.yml
      - copied unchanged from r23965, branches/upstream/libtree-redblack-perl/current/META.yml
    trunk/libtree-redblack-perl/t/
      - copied from r23965, branches/upstream/libtree-redblack-perl/current/t/
Modified:
    trunk/libtree-redblack-perl/Changes
    trunk/libtree-redblack-perl/MANIFEST
    trunk/libtree-redblack-perl/README
    trunk/libtree-redblack-perl/RedBlack.pm
    trunk/libtree-redblack-perl/debian/changelog

Modified: trunk/libtree-redblack-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtree-redblack-perl/Changes?rev=23966&op=diff
==============================================================================
--- trunk/libtree-redblack-perl/Changes (original)
+++ trunk/libtree-redblack-perl/Changes Fri Aug  8 19:00:06 2008
@@ -11,3 +11,10 @@
 
 0.3   Tue Jun 29 10:53:00 1999
 	- fixed memory leak; bholzman
+
+0.4   Thu Jul 31 10:33:00 2008
+	- fixed misspelled method name (value instead of val), ID 13482
+	- fix bug when using custom comparator, ID 19431
+
+0.5   Thu Jul 31 14:48:00 2008
+	- added some tests (still more to add)

Modified: trunk/libtree-redblack-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtree-redblack-perl/MANIFEST?rev=23966&op=diff
==============================================================================
--- trunk/libtree-redblack-perl/MANIFEST (original)
+++ trunk/libtree-redblack-perl/MANIFEST Fri Aug  8 19:00:06 2008
@@ -4,3 +4,5 @@
 Makefile.PL
 RedBlack.pm
 Node.pm
+t/redblack.t
+META.yml                                 Module meta-data (added by MakeMaker)

Modified: trunk/libtree-redblack-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtree-redblack-perl/README?rev=23966&op=diff
==============================================================================
--- trunk/libtree-redblack-perl/README (original)
+++ trunk/libtree-redblack-perl/README Fri Aug  8 19:00:06 2008
@@ -1,4 +1,4 @@
-Tree::RedBlack version 0.3
+Tree::RedBlack version 0.4
 ------------------------------------------------------------------------
     This program is free software; you can redistribute it and/or modify
     it under the terms of the Artistic License, a copy of which can be
@@ -36,21 +36,6 @@
 
 (sorry, no test suite yet)
 
-Changes
--------
-Version 0.3
-	Fixed memory leak since nodes pointed to their parents. Now,
-	DESTROY does a tree-traversal.  Still haven't fixed delete.
-	I don't think the interface is going to change, so I've upgraded this
-	module to beta status.
-
-Version 0.2
-	Major mess-up in Makefile.PL made it un-installable.
-	Changed how delete works a touch, but it hasn't been fixed yet
-
-Version 0.1
-	First public alpha release
-
 Feedback
 --------
 

Modified: trunk/libtree-redblack-perl/RedBlack.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtree-redblack-perl/RedBlack.pm?rev=23966&op=diff
==============================================================================
--- trunk/libtree-redblack-perl/RedBlack.pm (original)
+++ trunk/libtree-redblack-perl/RedBlack.pm Fri Aug  8 19:00:06 2008
@@ -3,7 +3,7 @@
 use strict;
 use Tree::RedBlack::Node;
 use vars qw($VERSION);
-$VERSION = '0.3';
+$VERSION = '0.5';
 
 =head1 NAME
 
@@ -137,7 +137,7 @@
       return $val;
     }
     $node = $parent->new($key, $value);
-    if ($this->{'cmp'} ? $this->{'cmp'}->($key, $node->key) < 0
+    if ($this->{'cmp'} ? $this->{'cmp'}->($key, $parent->key) < 0
 		       : $key lt $parent->key) {
       $parent->left($node);
     } else {
@@ -148,7 +148,7 @@
   }
   $node->color(1);
   while ($node != $this->{'root'} && $node->parent->color) {
-    if ($node->parent == $node->parent->parent->left) {
+    if (defined $node->parent->parent->left && $node->parent == $node->parent->parent->left) {
       my $uncle = $node->parent->parent->right;
       if ($uncle && $uncle->color) {
 	$node->parent->color(0);
@@ -172,7 +172,7 @@
 	$node->parent->parent->color(1);
 	$node = $node->parent->parent;
       } else {
-	if ($node == $node->parent->left) {
+	if (defined $node->parent->left && $node == $node->parent->left) {
 	  $node = $node->parent;
 	  $this->right_rotate($node);
 	}
@@ -257,7 +257,7 @@
   }
   if ($successor != $node) {
     $node->key($successor->key);
-    $node->value($successor->value);
+    $node->val($successor->val);
   }
   if (!$successor->color) {
     $this->delete_fixup($successor_child);

Modified: trunk/libtree-redblack-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtree-redblack-perl/debian/changelog?rev=23966&op=diff
==============================================================================
--- trunk/libtree-redblack-perl/debian/changelog (original)
+++ trunk/libtree-redblack-perl/debian/changelog Fri Aug  8 19:00:06 2008
@@ -1,3 +1,9 @@
+libtree-redblack-perl (0.5-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Damyan Ivanov <dmn at debian.org>  Fri, 08 Aug 2008 21:58:20 +0300
+
 libtree-redblack-perl (0.3-9) unstable; urgency=low
 
   * add fix_broken_insert_with_custom_compare.patch; Closes: #493064