r32485 - in /branches/upstream/libconfig-model-backend-augeas-perl/current: ChangeLog META.yml lib/Config/Model/Backend/Augeas.pm t/augeas_backend.t t/augeas_from_scratch.t

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

Author: ddumont-guest
Date: Wed Apr  1 15:46:26 2009
New Revision: 32485

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

Modified:
    branches/upstream/libconfig-model-backend-augeas-perl/current/ChangeLog
    branches/upstream/libconfig-model-backend-augeas-perl/current/META.yml
    branches/upstream/libconfig-model-backend-augeas-perl/current/lib/Config/Model/Backend/Augeas.pm
    branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_backend.t
    branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_from_scratch.t

Modified: branches/upstream/libconfig-model-backend-augeas-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-backend-augeas-perl/current/ChangeLog?rev=32485&op=diff
==============================================================================
--- branches/upstream/libconfig-model-backend-augeas-perl/current/ChangeLog (original)
+++ branches/upstream/libconfig-model-backend-augeas-perl/current/ChangeLog Wed Apr  1 15:46:26 2009
@@ -1,3 +1,8 @@
+2009-03-31  Dominique Dumont  <dominique.dumont at hp.com> v0.106
+
+	* t/*.t: fixed tests that broke with Config::Model 0.634
+	(Fixes Debian bug #521968)
+
 2009-01-28  Dominique Dumont  <dominique.dumont at hp.com> v0.105
 
 	* t/augeas*.t: Sometimes the Augeas locale bug workaround also

Modified: branches/upstream/libconfig-model-backend-augeas-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-backend-augeas-perl/current/META.yml?rev=32485&op=diff
==============================================================================
--- branches/upstream/libconfig-model-backend-augeas-perl/current/META.yml (original)
+++ branches/upstream/libconfig-model-backend-augeas-perl/current/META.yml Wed Apr  1 15:46:26 2009
@@ -1,6 +1,6 @@
 ---
 name: Config-Model-Backend-Augeas
-version: 0.105
+version: 0.106
 author:
   - Dominique Dumont (ddumont at cpan dot org)
 abstract: Read and write configuration data through Augeas
@@ -19,7 +19,7 @@
 provides:
   Config::Model::Backend::Augeas:
     file: lib/Config/Model/Backend/Augeas.pm
-    version: 0.105
+    version: 0.106
 generated_by: Module::Build version 0.3
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html

Modified: branches/upstream/libconfig-model-backend-augeas-perl/current/lib/Config/Model/Backend/Augeas.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-backend-augeas-perl/current/lib/Config/Model/Backend/Augeas.pm?rev=32485&op=diff
==============================================================================
--- branches/upstream/libconfig-model-backend-augeas-perl/current/lib/Config/Model/Backend/Augeas.pm (original)
+++ branches/upstream/libconfig-model-backend-augeas-perl/current/lib/Config/Model/Backend/Augeas.pm Wed Apr  1 15:46:26 2009
@@ -1,6 +1,6 @@
 # $Author: ddumont $
-# $Date: 2009-01-27 13:37:58 +0100 (Tue, 27 Jan 2009) $
-# $Revision: 853 $
+# $Date: 2009-03-31 18:20:13 +0200 (Tue, 31 Mar 2009) $
+# $Revision: 911 $
 
 #    Copyright (c) 2008-2009 Dominique Dumont.
 #
@@ -32,7 +32,7 @@
 eval { require Config::Augeas ;} ;
 $has_augeas = 0 if $@ ;
 
-our $VERSION = '0.105';
+our $VERSION = '0.106';
 
 =head1 NAME
 

Modified: branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_backend.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_backend.t?rev=32485&op=diff
==============================================================================
--- branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_backend.t (original)
+++ branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_backend.t Wed Apr  1 15:46:26 2009
@@ -1,7 +1,7 @@
 # -*- cperl -*-
 # $Author: ddumont $
 # $Date: 2008-07-04 16:14:06 +0200 (Fri, 04 Jul 2008) $
-# $Revision: 854 $
+# $Revision: 911 $
 
 # test augeas backend 
 
@@ -27,10 +27,15 @@
 
 $model = Config::Model -> new (legacy => 'ignore',) ;
 
-my $trace = shift || 0;
-$::verbose          = 1 if $trace =~ /v/;
-$::debug            = 1 if $trace =~ /d/;
-Config::Model::Exception::Any->Trace(1) if $trace =~ /e/;
+my $arg = shift || '';
+
+my $trace = $arg =~ /t/ ? 1 : 0 ;
+$::verbose          = 1 if $arg =~ /v/;
+$::debug            = 1 if $arg =~ /d/;
+Config::Model::Exception::Any->Trace(1) if $arg =~ /e/;
+
+use Log::Log4perl qw(:easy) ;
+Log::Log4perl->easy_init($arg =~ /l/ ? $TRACE: $WARN);
 
 eval { require Config::Augeas ;} ;
 if ( $@ ) {
@@ -59,7 +64,7 @@
 
 my $i_hosts = $model->instance(instance_name    => 'hosts_inst',
 			       root_class_name  => 'Hosts',
-			       read_root_dir    => $wr_root ,
+			       root_dir    => $wr_root ,
 			      );
 
 ok( $i_hosts, "Created instance for /etc/hosts" );
@@ -143,7 +148,7 @@
 
 my $i_sshd = $model->instance(instance_name    => 'sshd_inst',
 			      root_class_name  => 'Sshd',
-			      read_root_dir    => $wr_root ,
+			      root_dir    => $wr_root ,
 			     );
 
 ok( $i_sshd, "Created instance for sshd" );

Modified: branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_from_scratch.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_from_scratch.t?rev=32485&op=diff
==============================================================================
--- branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_from_scratch.t (original)
+++ branches/upstream/libconfig-model-backend-augeas-perl/current/t/augeas_from_scratch.t Wed Apr  1 15:46:26 2009
@@ -25,12 +25,17 @@
   exec("perl $0 @ARGV");
 }
 
+my $arg = shift || '';
+
+my $trace = $arg =~ /t/ ? 1 : 0 ;
+$::verbose          = 1 if $arg =~ /v/;
+$::debug            = 1 if $arg =~ /d/;
+Config::Model::Exception::Any->Trace(1) if $arg =~ /e/;
+
+use Log::Log4perl qw(:easy) ;
+Log::Log4perl->easy_init($arg =~ /l/ ? $TRACE: $WARN);
+
 $model = Config::Model -> new (legacy => 'ignore',) ;
-
-my $trace = shift || 0;
-$::verbose          = 1 if $trace =~ /v/;
-$::debug            = 1 if $trace =~ /d/;
-Config::Model::Exception::Any->Trace(1) if $trace =~ /e/;
 
 eval { require Config::Augeas ;} ;
 if ( $@ ) {
@@ -67,7 +72,7 @@
 
 my $i_sshd = $model->instance(instance_name    => 'sshd_inst',
 			      root_class_name  => 'Sshd',
-			      read_root_dir    => $wr_root ,
+			      root_dir         => $wr_root ,
 			     );
 
 ok( $i_sshd, "Created instance for sshd" );