[Bps-public-commit] r15811 - in Data-Hierarchy/trunk: .

clkao at bestpractical.com clkao at bestpractical.com
Mon Sep 8 07:03:46 EDT 2008


Author: clkao
Date: Mon Sep  8 07:03:46 2008
New Revision: 15811

Modified:
   Data-Hierarchy/trunk/   (props changed)
   Data-Hierarchy/trunk/CHANGES
   Data-Hierarchy/trunk/Hierarchy.pm
   Data-Hierarchy/trunk/t/5relative.t

Log:
 r35433 at mtl (orig r368):  clkao | 2006-09-08 04:21:59 +0800
 Data::Hierarchy 0.31


Modified: Data-Hierarchy/trunk/CHANGES
==============================================================================
--- Data-Hierarchy/trunk/CHANGES	(original)
+++ Data-Hierarchy/trunk/CHANGES	Mon Sep  8 07:03:46 2008
@@ -1,3 +1,7 @@
+[Changes for 0.31 - Sep 7, 2006]
+
+* Fix a test assuming hash key orders.
+
 [Changes for 0.30 - Jul 25, 2006]
 
 * Big rewrite, simplifying the API and documenting everything.

Modified: Data-Hierarchy/trunk/Hierarchy.pm
==============================================================================
--- Data-Hierarchy/trunk/Hierarchy.pm	(original)
+++ Data-Hierarchy/trunk/Hierarchy.pm	Mon Sep  8 07:03:46 2008
@@ -1,5 +1,5 @@
 package Data::Hierarchy;
-$VERSION = '0.30';
+$VERSION = '0.31';
 use strict;
 use Storable qw(dclone);
 # XXX consider using Moose
@@ -505,7 +505,7 @@
         my $original = $args{$item};
         my $result = {};
 
-        for my $path (keys %$original) {
+        for my $path (sort keys %$original) {
             unless ($path eq $base_path or index($path, $base_path . $self->{sep}) == 0) {
                 require Carp;
                 Carp::confess("$path is not a child of $base_path");

Modified: Data-Hierarchy/trunk/t/5relative.t
==============================================================================
--- Data-Hierarchy/trunk/t/5relative.t	(original)
+++ Data-Hierarchy/trunk/t/5relative.t	Mon Sep  8 07:03:46 2008
@@ -20,4 +20,4 @@
 is($tnew->get('/beep')->{A}, 1);
 is($tnew->get('/beep/bar/baz')->{A}, 4);
 
-throws_ok { $t->to_relative('/fo') } qr!/foo/bar/baz is not a child of /fo!;
+throws_ok { $t->to_relative('/fo') } qr!/foo is not a child of /fo!;



More information about the Bps-public-commit mailing list