r32487 - in /trunk/libconfig-model-backend-augeas-perl: ChangeLog META.yml debian/changelog lib/Config/Model/Backend/Augeas.pm t/augeas_backend.t t/augeas_from_scratch.t

ddumont-guest at users.alioth.debian.org ddumont-guest at users.alioth.debian.org
Wed Apr 1 16:02:17 UTC 2009 

Author: ddumont-guest
Date: Wed Apr  1 16:02:13 2009
New Revision: 32487

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

Modified:
    trunk/libconfig-model-backend-augeas-perl/ChangeLog
    trunk/libconfig-model-backend-augeas-perl/META.yml
    trunk/libconfig-model-backend-augeas-perl/debian/changelog
    trunk/libconfig-model-backend-augeas-perl/lib/Config/Model/Backend/Augeas.pm
    trunk/libconfig-model-backend-augeas-perl/t/augeas_backend.t
    trunk/libconfig-model-backend-augeas-perl/t/augeas_from_scratch.t

Modified: trunk/libconfig-model-backend-augeas-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-backend-augeas-perl/ChangeLog?rev=32487&op=diff
==============================================================================
--- trunk/libconfig-model-backend-augeas-perl/ChangeLog (original)
+++ trunk/libconfig-model-backend-augeas-perl/ChangeLog Wed Apr  1 16:02:13 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: trunk/libconfig-model-backend-augeas-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-backend-augeas-perl/META.yml?rev=32487&op=diff
==============================================================================
--- trunk/libconfig-model-backend-augeas-perl/META.yml (original)
+++ trunk/libconfig-model-backend-augeas-perl/META.yml Wed Apr  1 16:02:13 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: trunk/libconfig-model-backend-augeas-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-backend-augeas-perl/debian/changelog?rev=32487&op=diff
==============================================================================
--- trunk/libconfig-model-backend-augeas-perl/debian/changelog (original)
+++ trunk/libconfig-model-backend-augeas-perl/debian/changelog Wed Apr  1 16:02:13 2009
@@ -1,3 +1,11 @@
+libconfig-model-backend-augeas-perl (0.106-1) UNRELEASED; urgency=low
+
+  * New upstream release (only test changes to fix FTBS)
+  * Fix "FTBFS: Test failures" (fixed upstream)
+    (Closes: #521968)
+
+ -- Dominique Dumont <dominique.dumont at hp.com>  Wed, 01 Apr 2009 17:59:39 +0200
+
 libconfig-model-backend-augeas-perl (0.105-1) unstable; urgency=low
 
   * Initial Release. (Closes: #513016)

Modified: trunk/libconfig-model-backend-augeas-perl/lib/Config/Model/Backend/Augeas.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-backend-augeas-perl/lib/Config/Model/Backend/Augeas.pm?rev=32487&op=diff
==============================================================================
--- trunk/libconfig-model-backend-augeas-perl/lib/Config/Model/Backend/Augeas.pm (original)
+++ trunk/libconfig-model-backend-augeas-perl/lib/Config/Model/Backend/Augeas.pm Wed Apr  1 16:02:13 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: trunk/libconfig-model-backend-augeas-perl/t/augeas_backend.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-backend-augeas-perl/t/augeas_backend.t?rev=32487&op=diff
==============================================================================
--- trunk/libconfig-model-backend-augeas-perl/t/augeas_backend.t (original)
+++ trunk/libconfig-model-backend-augeas-perl/t/augeas_backend.t Wed Apr  1 16:02:13 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: trunk/libconfig-model-backend-augeas-perl/t/augeas_from_scratch.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-backend-augeas-perl/t/augeas_from_scratch.t?rev=32487&op=diff
==============================================================================
--- trunk/libconfig-model-backend-augeas-perl/t/augeas_from_scratch.t (original)
+++ trunk/libconfig-model-backend-augeas-perl/t/augeas_from_scratch.t Wed Apr  1 16:02:13 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" );

More information about the Pkg-perl-cvs-commits mailing list