r70299 - in /branches/upstream/libconfig-model-cursesui-perl/current: Build.PL ChangeLog META.yml lib/Config/Model/CursesUI.pm t/curses_ui.t t/test_model.pm
ddumont-guest at users.alioth.debian.org
ddumont-guest at users.alioth.debian.org
Thu Mar 3 13:16:32 UTC 2011
Author: ddumont-guest
Date: Thu Mar 3 13:13:57 2011
New Revision: 70299
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70299
Log:
[svn-upgrade] new version libconfig-model-cursesui-perl (1.104)
Modified:
branches/upstream/libconfig-model-cursesui-perl/current/Build.PL
branches/upstream/libconfig-model-cursesui-perl/current/ChangeLog
branches/upstream/libconfig-model-cursesui-perl/current/META.yml
branches/upstream/libconfig-model-cursesui-perl/current/lib/Config/Model/CursesUI.pm
branches/upstream/libconfig-model-cursesui-perl/current/t/curses_ui.t
branches/upstream/libconfig-model-cursesui-perl/current/t/test_model.pm
Modified: branches/upstream/libconfig-model-cursesui-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-cursesui-perl/current/Build.PL?rev=70299&op=diff
==============================================================================
--- branches/upstream/libconfig-model-cursesui-perl/current/Build.PL (original)
+++ branches/upstream/libconfig-model-cursesui-perl/current/Build.PL Thu Mar 3 13:13:57 2011
@@ -1,8 +1,4 @@
-# $Author: ddumont $
-# $Date: 2009-06-24 12:48:54 +0200 (mer 24 jun 2009) $
-# $Revision: 987 $
-
-# Copyright (c) 2007-2009 Dominique Dumont.
+# Copyright (c) 2007-2009,2011 Dominique Dumont.
#
# This file is part of Config-Model-Curses-UI.
#
@@ -32,7 +28,7 @@
dist_abstract => "Curses interface to edit config data through Config::Model",
dist_author => "Dominique Dumont (ddumont at cpan dot org)",
requires => {
- 'Config::Model' => '0.637',
+ 'Config::Model' => '1.233',
'Exception::Class' => 0,
'Curses::UI' => '0.9606',
},
Modified: branches/upstream/libconfig-model-cursesui-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-cursesui-perl/current/ChangeLog?rev=70299&op=diff
==============================================================================
--- branches/upstream/libconfig-model-cursesui-perl/current/ChangeLog (original)
+++ branches/upstream/libconfig-model-cursesui-perl/current/ChangeLog Thu Mar 3 13:13:57 2011
@@ -1,3 +1,11 @@
+2011-03-01 Dominique Dumont <domi.dumont at free.fr> v1.104
+
+ * Build.PL: depends on Config::Model 1.233.
+
+ * lib/Config/Model/CursesUI.pm: Removed usage of *_no_value_cheack
+ and replaced them with explicit check parameters. Removed long dead
+ enum_integer value_type (Debian Closes: #613970).
+
2009-06-24 Dominique Dumont <domi.dumont at free.fr> v1.103
* Build.PL: depends on Config::Model 0.637. Added build dependency
Modified: branches/upstream/libconfig-model-cursesui-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-cursesui-perl/current/META.yml?rev=70299&op=diff
==============================================================================
--- branches/upstream/libconfig-model-cursesui-perl/current/META.yml (original)
+++ branches/upstream/libconfig-model-cursesui-perl/current/META.yml Thu Mar 3 13:13:57 2011
@@ -1,23 +1,25 @@
---
-name: Config-Model-CursesUI
-version: 1.103
+abstract: 'Curses interface to edit config data through Config::Model'
author:
- - Dominique Dumont (ddumont at cpan dot org)
-abstract: Curses interface to edit config data through Config::Model
-license: lgpl
-resources:
- license: http://opensource.org/licenses/lgpl-license.php
-requires:
- Config::Model: 0.637
- Curses::UI: 0.9606
- Exception::Class: 0
+ - 'Dominique Dumont (ddumont at cpan dot org)'
build_requires:
Log::Log4perl: 0
+configure_requires:
+ Module::Build: 0.36
+generated_by: 'Module::Build version 0.3624'
+license: lgpl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Config-Model-CursesUI
provides:
Config::Model::CursesUI:
file: lib/Config/Model/CursesUI.pm
- version: 1.103
-generated_by: Module::Build version 0.33
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: 1.104
+requires:
+ Config::Model: 1.233
+ Curses::UI: 0.9606
+ Exception::Class: 0
+resources:
+ license: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt
+version: 1.104
Modified: branches/upstream/libconfig-model-cursesui-perl/current/lib/Config/Model/CursesUI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-cursesui-perl/current/lib/Config/Model/CursesUI.pm?rev=70299&op=diff
==============================================================================
--- branches/upstream/libconfig-model-cursesui-perl/current/lib/Config/Model/CursesUI.pm (original)
+++ branches/upstream/libconfig-model-cursesui-perl/current/lib/Config/Model/CursesUI.pm Thu Mar 3 13:13:57 2011
@@ -1,6 +1,3 @@
-# $Author: ddumont $
-# $Date: 2009-06-24 12:48:54 +0200 (mer 24 jun 2009) $
-# $Revision: 987 $
my $verb_wiz = 1 ;
@@ -25,8 +22,7 @@
},
) ;
-use vars qw($VERSION) ;
-$VERSION = '1.103';
+our $VERSION = '1.104';
my @help_settings = qw/-bg green -fg black -border 1
-titlereverse 0
@@ -1244,10 +1240,8 @@
my ($self,$win,$leaf, $x,$y, $width) = @_ ;
my $inst = $leaf->instance ;
- $inst->push_no_value_check('fetch') ;
-
no warnings "uninitialized";
- my $value = $leaf->fetch ;
+ my $value = $leaf->fetch(check => 'no') ;
$win -> add ( undef, 'Label', -text => "current value: ",
'-x' => $x, '-y' => $y ) ;
my $display_value = defined $value ? $value : '<undef>' ;
@@ -1264,8 +1258,6 @@
elsif (defined $leaf->fetch_standard) {
push @items, "default value: " . $leaf->fetch_standard ;
}
-
- $inst->pop_no_value_check ;
my $m = $leaf->mandatory ;
push @items, "is mandatory: ".($m ? 'yes':'no') if defined $m;
@@ -1586,8 +1578,8 @@
my $std_cb = sub {
my ($scanner, $data_ref,$node,$element_name,$index, $leaf_object) = @_ ;
- my $value = $leaf_object->fetch ;
- my $value_str = defined $value ? $value
+ my $value = $leaf_object->fetch(check => 'no') ;
+ my $value_str = length($value) ? $value
: $leaf_object->mandatory ? '*MISSING*'
: undef ;
$value_str = '"'.$value_str.'"' if defined $value_str && $value_str =~ /\s/ ;
@@ -1616,6 +1608,7 @@
hash_element_cb => $hash_cb ,
leaf_cb => $leaf_cb ,
node_element_cb => $node_cb ,
+ check => 'no',
);
my $view_scanner = Config::Model::ObjTreeScanner->new (@scan_args);
@@ -1623,9 +1616,7 @@
my @leaves ;
eval {
# perform the scan that fills @leaves
- $root->instance->push_no_value_check('fetch','store','type') ;
$view_scanner-> scan_node(\@leaves, $root) ;
- $root->instance->pop_no_value_check ;
} ;
if ($@) {
@@ -1646,7 +1637,7 @@
$str =sprintf("%-28s | %-10s | %-30s", $name,$value,$node->name) ;
}
else {
- my @level = split / +/,$loc ;
+ my @level = split m/ +/ ,$loc ;
$str = ('. ' x scalar @level) . $name ;
$str .= " = '$value'" if @$_ == 4;
}
@@ -1835,7 +1826,7 @@
check_list_element => 'layout_checklist' ,
) ;
- foreach my $leaf_item (qw/leaf enum_value enum_integer_value
+ foreach my $leaf_item (qw/leaf enum_value
integer_value number_value
boolean_value string_value/) {
my $layout_meth = $override_meth{$leaf_item} || 'layout_'.$leaf_item ;
@@ -1856,7 +1847,7 @@
);
#Tk::ObjScanner::scan_object(\@wiz_args) ;
- $self->{wizard} = $root->instance->wizard_helper (@wiz_args);
+ $self->{wizard} = $root->instance->iterator (@wiz_args);
my $result;
eval {$self->{wizard}->start ;} ;
@@ -1942,7 +1933,7 @@
=head1 LICENSE
- Copyright (c) 2007-2009 Dominique Dumont.
+ Copyright (c) 2007-2009,2011 Dominique Dumont.
This file is part of Config-Model.
Modified: branches/upstream/libconfig-model-cursesui-perl/current/t/curses_ui.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-cursesui-perl/current/t/curses_ui.t?rev=70299&op=diff
==============================================================================
--- branches/upstream/libconfig-model-cursesui-perl/current/t/curses_ui.t (original)
+++ branches/upstream/libconfig-model-cursesui-perl/current/t/curses_ui.t Thu Mar 3 13:13:57 2011
@@ -1,8 +1,4 @@
# -*- cperl -*-
-# $Author: ddumont $
-# $Date: 2009-06-24 12:39:29 +0200 (mer 24 jun 2009) $
-# $Name: not supported by cvs2svn $
-# $Revision: 986 $
use warnings FATAL => qw(all);
use ExtUtils::testlib;
Modified: branches/upstream/libconfig-model-cursesui-perl/current/t/test_model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-cursesui-perl/current/t/test_model.pm?rev=70299&op=diff
==============================================================================
--- branches/upstream/libconfig-model-cursesui-perl/current/t/test_model.pm (original)
+++ branches/upstream/libconfig-model-cursesui-perl/current/t/test_model.pm Thu Mar 3 13:13:57 2011
@@ -1,8 +1,4 @@
# -*- cperl -*-
-# $Author: ddumont $
-# $Date: 2009-06-24 12:48:54 +0200 (mer 24 jun 2009) $
-# $Name: not supported by cvs2svn $
-# $Revision: 987 $
# this file is used by test script
More information about the Pkg-perl-cvs-commits
mailing list