r64430 - in /trunk/libconfig-model-perl: ./ debian/ debian/patches/ examples/fstab/ examples/fstab/lib/ lib/Config/ lib/Config/Model/ lib/Config/Model/Backend/ lib/Config/Model/Backend/Debian/ lib/Config/Model/Backend/Debian/Dpkg/ t/
ddumont-guest at users.alioth.debian.org
ddumont-guest at users.alioth.debian.org
Sat Oct 30 13:03:31 UTC 2010
Author: ddumont-guest
Date: Sat Oct 30 13:02:43 2010
New Revision: 64430
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64430
Log:
new upstream release
Added:
trunk/libconfig-model-perl/examples/fstab/lib/
- copied from r64427, branches/upstream/libconfig-model-perl/current/examples/fstab/lib/
Removed:
trunk/libconfig-model-perl/examples/fstab/Fstab.pl
Modified:
trunk/libconfig-model-perl/ChangeLog
trunk/libconfig-model-perl/MANIFEST
trunk/libconfig-model-perl/META.yml
trunk/libconfig-model-perl/debian/changelog
trunk/libconfig-model-perl/debian/patches/add_dh_config
trunk/libconfig-model-perl/examples/fstab/fstab_test.pl
trunk/libconfig-model-perl/lib/Config/Model.pm
trunk/libconfig-model-perl/lib/Config/Model/Annotation.pm
trunk/libconfig-model-perl/lib/Config/Model/AnyId.pm
trunk/libconfig-model-perl/lib/Config/Model/AnyThing.pm
trunk/libconfig-model-perl/lib/Config/Model/AutoRead.pm
trunk/libconfig-model-perl/lib/Config/Model/Backend/Any.pm
trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Control.pm
trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Copyright.pm
trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/DpkgSyntax.pm
trunk/libconfig-model-perl/lib/Config/Model/Backend/IniFile.pm
trunk/libconfig-model-perl/lib/Config/Model/Backend/ShellVar.pm
trunk/libconfig-model-perl/lib/Config/Model/Backend/Yaml.pm
trunk/libconfig-model-perl/lib/Config/Model/CheckList.pm
trunk/libconfig-model-perl/lib/Config/Model/Describe.pm
trunk/libconfig-model-perl/lib/Config/Model/DumpAsData.pm
trunk/libconfig-model-perl/lib/Config/Model/Dumper.pm
trunk/libconfig-model-perl/lib/Config/Model/Exception.pm
trunk/libconfig-model-perl/lib/Config/Model/HashId.pm
trunk/libconfig-model-perl/lib/Config/Model/IdElementReference.pm
trunk/libconfig-model-perl/lib/Config/Model/Instance.pm
trunk/libconfig-model-perl/lib/Config/Model/ListId.pm
trunk/libconfig-model-perl/lib/Config/Model/Loader.pm
trunk/libconfig-model-perl/lib/Config/Model/Node.pm
trunk/libconfig-model-perl/lib/Config/Model/ObjTreeScanner.pm
trunk/libconfig-model-perl/lib/Config/Model/Report.pm
trunk/libconfig-model-perl/lib/Config/Model/Searcher.pm
trunk/libconfig-model-perl/lib/Config/Model/SimpleUI.pm
trunk/libconfig-model-perl/lib/Config/Model/TermUI.pm
trunk/libconfig-model-perl/lib/Config/Model/Value.pm
trunk/libconfig-model-perl/lib/Config/Model/ValueComputer.pm
trunk/libconfig-model-perl/lib/Config/Model/WarpedNode.pm
trunk/libconfig-model-perl/lib/Config/Model/WarpedThing.pm
trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm
trunk/libconfig-model-perl/t/value_refer_to.t
Modified: trunk/libconfig-model-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/ChangeLog?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/ChangeLog (original)
+++ trunk/libconfig-model-perl/ChangeLog Sat Oct 30 13:02:43 2010
@@ -1,3 +1,10 @@
+2010-10-26 Dominique Dumont <domi.dumont at free.fr> 1.217
+
+ * Fix issue where value reference did not follow refered
+ to parameters after creation.
+ * Fstab example: split the model for the Debian mini-debconf
+ workshop
+
2010-10-26 Dominique Dumont <domi.dumont at free.fr> 1.216
* Control.pl: fixed control fields order to be less confusing (thanks to ansgar
Modified: trunk/libconfig-model-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/MANIFEST?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/MANIFEST (original)
+++ trunk/libconfig-model-perl/MANIFEST Sat Oct 30 13:02:43 2010
@@ -9,10 +9,17 @@
TODO
config-edit
config-edit.tmpl
-examples/fstab/Fstab.pl
examples/fstab/README
examples/fstab/fstab.sample
examples/fstab/fstab_test.pl
+examples/fstab/lib/Config/Model/models/Fstab.pl
+examples/fstab/lib/Config/Model/models/Fstab/CommonOptions.pl
+examples/fstab/lib/Config/Model/models/Fstab/Ext2FsOpt.pl
+examples/fstab/lib/Config/Model/models/Fstab/Ext3FsOpt.pl
+examples/fstab/lib/Config/Model/models/Fstab/FsLine.pl
+examples/fstab/lib/Config/Model/models/Fstab/Iso9660_Opt.pl
+examples/fstab/lib/Config/Model/models/Fstab/SwapOptions.pl
+examples/fstab/lib/Config/Model/models/Fstab/UsbFsOptions.pl
lib/Config/Model.pm
lib/Config/Model/Annotation.pm
lib/Config/Model/AnyId.pm
Modified: trunk/libconfig-model-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/META.yml?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/META.yml (original)
+++ trunk/libconfig-model-perl/META.yml Sat Oct 30 13:02:43 2010
@@ -32,4 +32,4 @@
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Config-Model
homepage: http://config-model.wiki.sourceforge.net
repository: http://config-model.hg.sourceforge.net:8000/hgroot/config-model/config-model
-version: 1.216
+version: 1.217
Modified: trunk/libconfig-model-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/debian/changelog?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/debian/changelog (original)
+++ trunk/libconfig-model-perl/debian/changelog Sat Oct 30 13:02:43 2010
@@ -1,3 +1,10 @@
+libconfig-model-perl (1.217-1) UNRELEASED; urgency=low
+
+ * New upstream release (small bug fix, improved Fstab example)
+ * Refresh patch add_dh_config.
+
+ -- Dominique Dumont <dominique.dumont at hp.com> Sat, 30 Oct 2010 14:50:22 +0200
+
libconfig-model-perl (1.216-1) unstable; urgency=low
* New upstream release (mostly bug and doc fixes)
Modified: trunk/libconfig-model-perl/debian/patches/add_dh_config
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/debian/patches/add_dh_config?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/debian/patches/add_dh_config (original)
+++ trunk/libconfig-model-perl/debian/patches/add_dh_config Sat Oct 30 13:02:43 2010
@@ -5,8 +5,10 @@
Reviewed-by: Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>
Last-Update: 2010-08-14
---- a/Build.PL
-+++ b/Build.PL
+Index: libconfig-model-perl/Build.PL
+===================================================================
+--- libconfig-model-perl.orig/Build.PL 2010-10-20 08:34:48.000000000 +0200
++++ libconfig-model-perl/Build.PL 2010-10-30 14:55:23.000000000 +0200
@@ -78,7 +78,7 @@
module_name => 'Config::Model',
@version_info,
@@ -16,13 +18,17 @@
dist_abstract => 'Describe, edit and validate configuration data',
dist_author => 'Dominique Dumont (ddumont at cpan dot org)',
---- a/MANIFEST
-+++ b/MANIFEST
-@@ -9,6 +9,7 @@
+Index: libconfig-model-perl/MANIFEST
+===================================================================
+--- libconfig-model-perl.orig/MANIFEST 2010-10-30 14:46:32.000000000 +0200
++++ libconfig-model-perl/MANIFEST 2010-10-30 14:56:47.000000000 +0200
+@@ -8,7 +8,8 @@
+ README
TODO
config-edit
- config-edit.tmpl
+-config-edit.tmpl
++config-edit.tmpl\
+debian/dh/dh_config_model_upgrade
- examples/fstab/Fstab.pl
examples/fstab/README
examples/fstab/fstab.sample
+ examples/fstab/fstab_test.pl
Modified: trunk/libconfig-model-perl/examples/fstab/fstab_test.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/examples/fstab/fstab_test.pl?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/examples/fstab/fstab_test.pl (original)
+++ trunk/libconfig-model-perl/examples/fstab/fstab_test.pl Sat Oct 30 13:02:43 2010
@@ -45,7 +45,7 @@
my $fstab_file = $use_etc ? '/etc/fstab' : 'fstab.sample' ;
-$model = Config::Model -> new(model_dir => '.') ;
+$model = Config::Model -> new(model_dir => 'lib/Config/Model/models') ;
my $instance = $model -> instance( root_class_name => 'Fstab',
instance_name => 'test',
Modified: trunk/libconfig-model-perl/lib/Config/Model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model.pm Sat Oct 30 13:02:43 2010
@@ -9,7 +9,7 @@
#
package Config::Model;
BEGIN {
- $Config::Model::VERSION = '1.216';
+ $Config::Model::VERSION = '1.217';
}
require Exporter;
use Carp;
@@ -42,7 +42,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
@@ -1521,7 +1521,7 @@
my $config_class_name = shift ;
$self->load($config_class_name)
- unless defined $self->{model}{$config_class_name} ;
+ unless defined $self->{raw_model}{$config_class_name} ;
my $model = $self->{raw_model}{$config_class_name} ||
croak "get_raw_model error: unknown config class name: $config_class_name";
Modified: trunk/libconfig-model-perl/lib/Config/Model/Annotation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Annotation.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Annotation.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Annotation.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::Annotation;
BEGIN {
- $Config::Model::Annotation::VERSION = '1.216';
+ $Config::Model::Annotation::VERSION = '1.217';
}
use Moose ;
@@ -57,7 +57,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/AnyId.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/AnyId.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/AnyId.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/AnyId.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::AnyId ;
BEGIN {
- $Config::Model::AnyId::VERSION = '1.216';
+ $Config::Model::AnyId::VERSION = '1.217';
}
use Config::Model::Exception ;
use Scalar::Util qw(weaken) ;
@@ -54,7 +54,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/AnyThing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/AnyThing.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/AnyThing.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/AnyThing.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::AnyThing;
BEGIN {
- $Config::Model::AnyThing::VERSION = '1.216';
+ $Config::Model::AnyThing::VERSION = '1.217';
}
use Scalar::Util qw(weaken);
use Carp;
@@ -39,7 +39,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/AutoRead.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/AutoRead.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/AutoRead.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/AutoRead.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::AutoRead ;
BEGIN {
- $Config::Model::AutoRead::VERSION = '1.216';
+ $Config::Model::AutoRead::VERSION = '1.217';
}
use Carp;
use strict;
@@ -540,7 +540,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Backend/Any.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Backend/Any.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Backend/Any.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Backend/Any.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::Backend::Any ;
BEGIN {
- $Config::Model::Backend::Any::VERSION = '1.216';
+ $Config::Model::Backend::Any::VERSION = '1.217';
}
use Carp;
@@ -79,7 +79,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Control.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Control.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Control.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Control.pm Sat Oct 30 13:02:43 2010
@@ -10,7 +10,7 @@
package Config::Model::Backend::Debian::Dpkg::Control ;
BEGIN {
- $Config::Model::Backend::Debian::Dpkg::Control::VERSION = '1.216';
+ $Config::Model::Backend::Debian::Dpkg::Control::VERSION = '1.217';
}
use Moose ;
@@ -181,7 +181,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Copyright.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Copyright.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Copyright.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/Dpkg/Copyright.pm Sat Oct 30 13:02:43 2010
@@ -10,7 +10,7 @@
package Config::Model::Backend::Debian::Dpkg::Copyright ;
BEGIN {
- $Config::Model::Backend::Debian::Dpkg::Copyright::VERSION = '1.216';
+ $Config::Model::Backend::Debian::Dpkg::Copyright::VERSION = '1.217';
}
use Moose ;
@@ -226,7 +226,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/DpkgSyntax.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/DpkgSyntax.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/DpkgSyntax.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Backend/Debian/DpkgSyntax.pm Sat Oct 30 13:02:43 2010
@@ -10,7 +10,7 @@
package Config::Model::Backend::Debian::DpkgSyntax ;
BEGIN {
- $Config::Model::Backend::Debian::DpkgSyntax::VERSION = '1.216';
+ $Config::Model::Backend::Debian::DpkgSyntax::VERSION = '1.217';
}
use Moose::Role ;
@@ -117,7 +117,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Backend/IniFile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Backend/IniFile.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Backend/IniFile.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Backend/IniFile.pm Sat Oct 30 13:02:43 2010
@@ -31,7 +31,7 @@
package Config::Model::Backend::IniFile ;
BEGIN {
- $Config::Model::Backend::IniFile::VERSION = '1.216';
+ $Config::Model::Backend::IniFile::VERSION = '1.217';
}
use Carp;
@@ -233,7 +233,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Backend/ShellVar.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Backend/ShellVar.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Backend/ShellVar.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Backend/ShellVar.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::Backend::ShellVar ;
BEGIN {
- $Config::Model::Backend::ShellVar::VERSION = '1.216';
+ $Config::Model::Backend::ShellVar::VERSION = '1.217';
}
use Carp;
@@ -164,7 +164,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Backend/Yaml.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Backend/Yaml.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Backend/Yaml.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Backend/Yaml.pm Sat Oct 30 13:02:43 2010
@@ -10,7 +10,7 @@
package Config::Model::Backend::Yaml ;
BEGIN {
- $Config::Model::Backend::Yaml::VERSION = '1.216';
+ $Config::Model::Backend::Yaml::VERSION = '1.217';
}
use Carp;
@@ -90,7 +90,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/CheckList.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/CheckList.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/CheckList.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/CheckList.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::CheckList ;
BEGIN {
- $Config::Model::CheckList::VERSION = '1.216';
+ $Config::Model::CheckList::VERSION = '1.217';
}
use Config::Model::Exception ;
use Config::Model::IdElementReference ;
@@ -47,7 +47,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Describe.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Describe.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Describe.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Describe.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::Describe;
BEGIN {
- $Config::Model::Describe::VERSION = '1.216';
+ $Config::Model::Describe::VERSION = '1.217';
}
use Carp;
use strict;
@@ -44,7 +44,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/DumpAsData.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/DumpAsData.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/DumpAsData.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/DumpAsData.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::DumpAsData;
BEGIN {
- $Config::Model::DumpAsData::VERSION = '1.216';
+ $Config::Model::DumpAsData::VERSION = '1.217';
}
use Carp;
use strict;
@@ -43,7 +43,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Dumper.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Dumper.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Dumper.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Dumper.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::Dumper;
BEGIN {
- $Config::Model::Dumper::VERSION = '1.216';
+ $Config::Model::Dumper::VERSION = '1.217';
}
use Carp;
use strict;
@@ -43,7 +43,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Exception.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Exception.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Exception.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Exception.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::Exception ;
BEGIN {
- $Config::Model::Exception::VERSION = '1.216';
+ $Config::Model::Exception::VERSION = '1.217';
}
use warnings ;
use strict;
@@ -150,7 +150,7 @@
package Config::Model::Exception::Syntax ;
BEGIN {
- $Config::Model::Exception::Syntax::VERSION = '1.216';
+ $Config::Model::Exception::Syntax::VERSION = '1.217';
}
sub full_message {
@@ -166,7 +166,7 @@
package Config::Model::Exception::Any ;
BEGIN {
- $Config::Model::Exception::Any::VERSION = '1.216';
+ $Config::Model::Exception::Any::VERSION = '1.217';
}
sub full_message {
@@ -197,7 +197,7 @@
package Config::Model::Exception::LoadData ;
BEGIN {
- $Config::Model::Exception::LoadData::VERSION = '1.216';
+ $Config::Model::Exception::LoadData::VERSION = '1.217';
}
sub full_message {
@@ -217,7 +217,7 @@
package Config::Model::Exception::Model ;
BEGIN {
- $Config::Model::Exception::Model::VERSION = '1.216';
+ $Config::Model::Exception::Model::VERSION = '1.217';
}
sub full_message {
@@ -243,7 +243,7 @@
package Config::Model::Exception::Load ;
BEGIN {
- $Config::Model::Exception::Load::VERSION = '1.216';
+ $Config::Model::Exception::Load::VERSION = '1.217';
}
sub full_message {
@@ -261,7 +261,7 @@
package Config::Model::Exception::RestrictedElement ;
BEGIN {
- $Config::Model::Exception::RestrictedElement::VERSION = '1.216';
+ $Config::Model::Exception::RestrictedElement::VERSION = '1.217';
}
sub full_message {
@@ -281,7 +281,7 @@
package Config::Model::Exception::UnavailableElement ;
BEGIN {
- $Config::Model::Exception::UnavailableElement::VERSION = '1.216';
+ $Config::Model::Exception::UnavailableElement::VERSION = '1.217';
}
sub full_message {
@@ -304,7 +304,7 @@
package Config::Model::Exception::ObsoleteElement ;
BEGIN {
- $Config::Model::Exception::ObsoleteElement::VERSION = '1.216';
+ $Config::Model::Exception::ObsoleteElement::VERSION = '1.217';
}
sub full_message {
@@ -326,7 +326,7 @@
package Config::Model::Exception::UnknownElement ;
BEGIN {
- $Config::Model::Exception::UnknownElement::VERSION = '1.216';
+ $Config::Model::Exception::UnknownElement::VERSION = '1.217';
}
use Carp;
@@ -385,7 +385,7 @@
package Config::Model::Exception::UnknownId ;
BEGIN {
- $Config::Model::Exception::UnknownId::VERSION = '1.216';
+ $Config::Model::Exception::UnknownId::VERSION = '1.217';
}
sub full_message {
@@ -414,7 +414,7 @@
package Config::Model::Exception::WrongType ;
BEGIN {
- $Config::Model::Exception::WrongType::VERSION = '1.216';
+ $Config::Model::Exception::WrongType::VERSION = '1.217';
}
sub full_message {
@@ -438,7 +438,7 @@
package Config::Model::Exception::Xml ;
BEGIN {
- $Config::Model::Exception::Xml::VERSION = '1.216';
+ $Config::Model::Exception::Xml::VERSION = '1.217';
}
sub full_message {
@@ -466,7 +466,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/HashId.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/HashId.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/HashId.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/HashId.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::HashId ;
BEGIN {
- $Config::Model::HashId::VERSION = '1.216';
+ $Config::Model::HashId::VERSION = '1.217';
}
use Config::Model::Exception ;
use Scalar::Util qw(weaken) ;
@@ -47,7 +47,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/IdElementReference.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/IdElementReference.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/IdElementReference.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/IdElementReference.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::IdElementReference ;
BEGIN {
- $Config::Model::IdElementReference::VERSION = '1.216';
+ $Config::Model::IdElementReference::VERSION = '1.217';
}
use warnings ;
@@ -46,7 +46,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
@@ -225,6 +225,8 @@
# internal
+
+# FIXME: do not call back value object -> may recurse
sub get_choice_from_refered_to {
my $self = shift ;
Modified: trunk/libconfig-model-perl/lib/Config/Model/Instance.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Instance.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Instance.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Instance.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::Instance;
BEGIN {
- $Config::Model::Instance::VERSION = '1.216';
+ $Config::Model::Instance::VERSION = '1.217';
}
use Scalar::Util qw(weaken) ;
use File::Path;
@@ -56,7 +56,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/ListId.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/ListId.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/ListId.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/ListId.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::ListId ;
BEGIN {
- $Config::Model::ListId::VERSION = '1.216';
+ $Config::Model::ListId::VERSION = '1.217';
}
use Config::Model::Exception ;
use Scalar::Util qw(weaken) ;
@@ -46,7 +46,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Loader.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Loader.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Loader.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Loader.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::Loader;
BEGIN {
- $Config::Model::Loader::VERSION = '1.216';
+ $Config::Model::Loader::VERSION = '1.217';
}
use Carp;
use strict;
@@ -44,7 +44,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Node.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Node.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Node.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Node.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::Node;
BEGIN {
- $Config::Model::Node::VERSION = '1.216';
+ $Config::Model::Node::VERSION = '1.217';
}
use Carp ;
use strict;
@@ -68,7 +68,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/ObjTreeScanner.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/ObjTreeScanner.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/ObjTreeScanner.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/ObjTreeScanner.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::ObjTreeScanner ;
BEGIN {
- $Config::Model::ObjTreeScanner::VERSION = '1.216';
+ $Config::Model::ObjTreeScanner::VERSION = '1.217';
}
use strict ;
use Config::Model::Exception ;
@@ -45,7 +45,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Report.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Report.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Report.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Report.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::Report;
BEGIN {
- $Config::Model::Report::VERSION = '1.216';
+ $Config::Model::Report::VERSION = '1.217';
}
use Carp;
use strict;
@@ -45,7 +45,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Searcher.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Searcher.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Searcher.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Searcher.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::Searcher;
BEGIN {
- $Config::Model::Searcher::VERSION = '1.216';
+ $Config::Model::Searcher::VERSION = '1.217';
}
use Log::Log4perl qw(get_logger :levels);
use Carp;
@@ -46,7 +46,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/SimpleUI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/SimpleUI.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/SimpleUI.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/SimpleUI.pm Sat Oct 30 13:02:43 2010
@@ -29,7 +29,7 @@
package Config::Model::SimpleUI ;
BEGIN {
- $Config::Model::SimpleUI::VERSION = '1.216';
+ $Config::Model::SimpleUI::VERSION = '1.217';
}
use Carp;
@@ -43,7 +43,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/TermUI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/TermUI.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/TermUI.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/TermUI.pm Sat Oct 30 13:02:43 2010
@@ -29,7 +29,7 @@
package Config::Model::TermUI ;
BEGIN {
- $Config::Model::TermUI::VERSION = '1.216';
+ $Config::Model::TermUI::VERSION = '1.217';
}
use Carp;
@@ -47,7 +47,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/Value.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/Value.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/Value.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/Value.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::Value ;
BEGIN {
- $Config::Model::Value::VERSION = '1.216';
+ $Config::Model::Value::VERSION = '1.217';
}
use warnings ;
use strict;
@@ -49,7 +49,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
@@ -1132,11 +1132,17 @@
=cut
sub get_default_choice {
- goto &get_choice ;
+ my $self = shift ;
+ return @{$self->{backup}{choice} || [] } ;
}
sub get_choice {
my $self = shift ;
+
+ # just in case the reference_object has been changed
+ if (defined $self->{refer_to} or defined $self->{computed_refer_to}) {
+ $self->{ref_object}->get_choice_from_refered_to ;
+ }
return @{$self->{choice} || [] } ;
}
Modified: trunk/libconfig-model-perl/lib/Config/Model/ValueComputer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/ValueComputer.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/ValueComputer.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/ValueComputer.pm Sat Oct 30 13:02:43 2010
@@ -27,7 +27,7 @@
package Config::Model::ValueComputer ;
BEGIN {
- $Config::Model::ValueComputer::VERSION = '1.216';
+ $Config::Model::ValueComputer::VERSION = '1.217';
}
use warnings ;
@@ -45,7 +45,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/WarpedNode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/WarpedNode.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/WarpedNode.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/WarpedNode.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::WarpedNode ;
BEGIN {
- $Config::Model::WarpedNode::VERSION = '1.216';
+ $Config::Model::WarpedNode::VERSION = '1.217';
}
use Carp qw(cluck croak);
@@ -50,7 +50,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/WarpedThing.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/WarpedThing.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/WarpedThing.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/WarpedThing.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::WarpedThing ;
BEGIN {
- $Config::Model::WarpedThing::VERSION = '1.216';
+ $Config::Model::WarpedThing::VERSION = '1.217';
}
use strict;
use Scalar::Util qw(weaken) ;
@@ -51,7 +51,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm (original)
+++ trunk/libconfig-model-perl/lib/Config/Model/WizardHelper.pm Sat Oct 30 13:02:43 2010
@@ -28,7 +28,7 @@
package Config::Model::WizardHelper ;
BEGIN {
- $Config::Model::WizardHelper::VERSION = '1.216';
+ $Config::Model::WizardHelper::VERSION = '1.217';
}
use Carp;
use strict;
@@ -45,7 +45,7 @@
=head1 VERSION
-version 1.216
+version 1.217
=head1 SYNOPSIS
Modified: trunk/libconfig-model-perl/t/value_refer_to.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-perl/t/value_refer_to.t?rev=64430&op=diff
==============================================================================
--- trunk/libconfig-model-perl/t/value_refer_to.t (original)
+++ trunk/libconfig-model-perl/t/value_refer_to.t Sat Oct 30 13:02:43 2010
@@ -1,12 +1,9 @@
# -*- cperl -*-
-# $Author$
-# $Date$
-# $Revision$
use warnings FATAL => qw(all);
use ExtUtils::testlib;
-use Test::More tests => 17 ;
+use Test::More tests => 18 ;
use Config::Model ;
use strict;
@@ -186,6 +183,10 @@
is_deeply([$hac->get_choice],['A','B','bar','foo'],
"check that default choice and refer_to add up");
+# choice needs to be recomputed for references
+$root->load("host~B") ;
+is_deeply([$hac->get_choice],['A','bar','foo'],
+ "check that default choice and refer_to follow removed elements");
# test reference to list values
$root->load("dumb_list=a,b,c,d,e") ;
More information about the Pkg-perl-cvs-commits
mailing list