r38982 - in /branches/upstream/libconfig-model-perl/current: ChangeLog META.yml lib/Config/Model.pm lib/Config/Model/WarpedNode.pm t/dump_tree.t

[ddumont-guest at users.alioth.debian.org]

Author: ddumont-guest
Date: Tue Jun 30 11:39:44 2009
New Revision: 38982

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38982
Log:
[svn-upgrade] Integrating new upstream version, libconfig-model-perl (0.638)

Modified:
    branches/upstream/libconfig-model-perl/current/ChangeLog
    branches/upstream/libconfig-model-perl/current/META.yml
    branches/upstream/libconfig-model-perl/current/lib/Config/Model.pm
    branches/upstream/libconfig-model-perl/current/lib/Config/Model/WarpedNode.pm
    branches/upstream/libconfig-model-perl/current/t/dump_tree.t

Modified: branches/upstream/libconfig-model-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-perl/current/ChangeLog?rev=38982&op=diff
==============================================================================
--- branches/upstream/libconfig-model-perl/current/ChangeLog (original)
+++ branches/upstream/libconfig-model-perl/current/ChangeLog Tue Jun 30 11:39:44 2009
@@ -1,3 +1,9 @@
+2009-06-29  Dominique Dumont  <dominique.dumont at hp.com> v0.638
+
+	* lib/Config/Model/WarpedNode.pm (is_auto_write_for_type): Added
+	new method that need to be forwarded to Node to avoid write
+	cds_file bug.
+
 2009-06-23  Dominique Dumont  <dominique.dumont at hp.com>  v0.637
 
 	* lib/Config/Model/Value.pm: As suggested by Jonas Smedegaard,

Modified: branches/upstream/libconfig-model-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-perl/current/META.yml?rev=38982&op=diff
==============================================================================
--- branches/upstream/libconfig-model-perl/current/META.yml (original)
+++ branches/upstream/libconfig-model-perl/current/META.yml Tue Jun 30 11:39:44 2009
@@ -1,6 +1,6 @@
 ---
 name: Config-Model
-version: 0.637
+version: 0.638
 author:
   - Dominique Dumont (ddumont at cpan dot org)
 abstract: Edit and validate configuration data
@@ -25,7 +25,7 @@
 provides:
   Config::Model:
     file: lib/Config/Model.pm
-    version: 0.637
+    version: 0.638
   Config::Model::AnyId:
     file: lib/Config/Model/AnyId.pm
     version: 1.0914
@@ -113,7 +113,7 @@
     version: 1.0905
   Config::Model::WarpedNode:
     file: lib/Config/Model/WarpedNode.pm
-    version: 1.0814
+    version: 1.0993
   Config::Model::WarpedThing:
     file: lib/Config/Model/WarpedThing.pm
     version: 1.0729

Modified: branches/upstream/libconfig-model-perl/current/lib/Config/Model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-perl/current/lib/Config/Model.pm?rev=38982&op=diff
==============================================================================
--- branches/upstream/libconfig-model-perl/current/lib/Config/Model.pm (original)
+++ branches/upstream/libconfig-model-perl/current/lib/Config/Model.pm Tue Jun 30 11:39:44 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-06-22 14:02:02 +0200 (Mon, 22 Jun 2009) $
-# $Revision: 978 $
+# $Date: 2009-06-29 14:17:40 +0200 (Mon, 29 Jun 2009) $
+# $Revision: 993 $
 
 #    Copyright (c) 2005-2009 Dominique Dumont.
 #
@@ -36,7 +36,7 @@
 # this class holds the version number of the package
 use vars qw($VERSION @status @level @experience_list %experience_index) ;
 
-$VERSION = '0.637';
+$VERSION = '0.638';
 
 
 =head1 NAME

Modified: branches/upstream/libconfig-model-perl/current/lib/Config/Model/WarpedNode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-perl/current/lib/Config/Model/WarpedNode.pm?rev=38982&op=diff
==============================================================================
--- branches/upstream/libconfig-model-perl/current/lib/Config/Model/WarpedNode.pm (original)
+++ branches/upstream/libconfig-model-perl/current/lib/Config/Model/WarpedNode.pm Tue Jun 30 11:39:44 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2008-12-16 14:18:45 +0100 (Tue, 16 Dec 2008) $
-# $Revision: 814 $
+# $Date: 2009-06-29 14:17:40 +0200 (Mon, 29 Jun 2009) $
+# $Revision: 993 $
 
 #    Copyright (c) 2005-2007 Dominique Dumont.
 #
@@ -32,7 +32,7 @@
 use Data::Dumper ();
 
 use vars qw($VERSION $AUTOLOAD) ;
-$VERSION = sprintf "1.%04d", q$Revision: 814 $ =~ /(\d+)/;
+$VERSION = sprintf "1.%04d", q$Revision: 993 $ =~ /(\d+)/;
 
 =head1 NAME
 
@@ -393,6 +393,11 @@
 
     $self->get_actual_node->load_data($h) ;
 
+}
+
+sub is_auto_write_for_type {
+    my $self = shift ;
+    $self->get_actual_node->is_auto_write_for_type(@_) ;
 }
 
 1;

Modified: branches/upstream/libconfig-model-perl/current/t/dump_tree.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-perl/current/t/dump_tree.t?rev=38982&op=diff
==============================================================================
--- branches/upstream/libconfig-model-perl/current/t/dump_tree.t (original)
+++ branches/upstream/libconfig-model-perl/current/t/dump_tree.t Tue Jun 30 11:39:44 2009
@@ -1,7 +1,7 @@
 # -*- cperl -*-
 # $Author: ddumont $
-# $Date: 2009-03-05 13:54:24 +0100 (Thu, 05 Mar 2009) $
-# $Revision: 873 $
+# $Date: 2009-06-29 14:17:40 +0200 (Mon, 29 Jun 2009) $
+# $Revision: 993 $
 
 use ExtUtils::testlib;
 use Test::More tests => 13;
@@ -218,7 +218,7 @@
 my $tm = $root -> fetch_element('tree_macro') ;
 map { $tm->store($_);} qw/XY XZ mXY XY mXY XZ/;
 
-$cds = $root->dump_tree( full_dump => 1 );
+$cds = $root->dump_tree( full_dump => 1 ,skip_auto_write => 'cds_file');
 print "cds string:\n$cds" if $trace  ;
 
 like($cds,qr/hidden value/,"check that hidden value is shown (macro=XZ)") ;