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
ddumont-guest at users.alioth.debian.org
Wed Apr 1 15:46:29 UTC 2009
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" );
More information about the Pkg-perl-cvs-commits
mailing list