r70301 - in /trunk/libconfig-model-cursesui-perl: Build.PL ChangeLog META.yml debian/changelog debian/control debian/copyright 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:29:37 UTC 2011
Author: ddumont-guest
Date: Thu Mar 3 13:29:28 2011
New Revision: 70301
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70301
Log:
new upstream release. lintian clean. Ready for review
Modified:
trunk/libconfig-model-cursesui-perl/Build.PL
trunk/libconfig-model-cursesui-perl/ChangeLog
trunk/libconfig-model-cursesui-perl/META.yml
trunk/libconfig-model-cursesui-perl/debian/changelog
trunk/libconfig-model-cursesui-perl/debian/control
trunk/libconfig-model-cursesui-perl/debian/copyright
trunk/libconfig-model-cursesui-perl/lib/Config/Model/CursesUI.pm
trunk/libconfig-model-cursesui-perl/t/curses_ui.t
trunk/libconfig-model-cursesui-perl/t/test_model.pm
Modified: trunk/libconfig-model-cursesui-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/Build.PL?rev=70301&op=diff
==============================================================================
--- trunk/libconfig-model-cursesui-perl/Build.PL (original)
+++ trunk/libconfig-model-cursesui-perl/Build.PL Thu Mar 3 13:29:28 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: trunk/libconfig-model-cursesui-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/ChangeLog?rev=70301&op=diff
==============================================================================
--- trunk/libconfig-model-cursesui-perl/ChangeLog (original)
+++ trunk/libconfig-model-cursesui-perl/ChangeLog Thu Mar 3 13:29:28 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: trunk/libconfig-model-cursesui-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/META.yml?rev=70301&op=diff
==============================================================================
--- trunk/libconfig-model-cursesui-perl/META.yml (original)
+++ trunk/libconfig-model-cursesui-perl/META.yml Thu Mar 3 13:29:28 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: trunk/libconfig-model-cursesui-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/debian/changelog?rev=70301&op=diff
==============================================================================
--- trunk/libconfig-model-cursesui-perl/debian/changelog (original)
+++ trunk/libconfig-model-cursesui-perl/debian/changelog Thu Mar 3 13:29:28 2011
@@ -1,9 +1,13 @@
-libconfig-model-cursesui-perl (1.103-2) UNRELEASED; urgency=low
+libconfig-model-cursesui-perl (1.104-1) UNRELEASED; urgency=low
+ [ gregor herrmann ]
* debian/control: Changed: (build-)depend on perl instead of perl-
modules.
- -- gregor herrmann <gregoa at debian.org> Fri, 23 Oct 2009 02:24:19 +0200
+ [ Dominique Dumont ]
+ * New upstream release
+
+ -- Dominique Dumont <domi.dumont at free.fr> Thu, 03 Mar 2011 14:16:35 +0100
libconfig-model-cursesui-perl (1.103-1) unstable; urgency=low
Modified: trunk/libconfig-model-cursesui-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/debian/control?rev=70301&op=diff
==============================================================================
--- trunk/libconfig-model-cursesui-perl/debian/control (original)
+++ trunk/libconfig-model-cursesui-perl/debian/control Thu Mar 3 13:29:28 2011
@@ -1,28 +1,28 @@
Source: libconfig-model-cursesui-perl
+Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
+Uploaders: Dominique Dumont <domi.dumont at free.fr>
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7),
- perl (>= 5.10) | libmodule-build-perl
-Build-Depends-Indep: perl (>= 5.8.8-12),
- libconfig-model-perl (>= 0.637),
- libcurses-ui-perl (>= 0.9606),
- libexception-class-perl,
- libtest-pod-perl,
- liblog-log4perl-perl (>= 1.11)
-Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Dominique Dumont <dominique.dumont at hp.com>
-Standards-Version: 3.8.2
+Build-Depends: debhelper (>= 7),
+ perl
+Build-Depends-Indep: libconfig-model-perl (>= 1.233),
+ libcurses-ui-perl (>= 0.9606),
+ libexception-class-perl,
+ libtest-pod-perl,
+ liblog-log4perl-perl (>= 1.11)
+Standards-Version: 3.9.1
+Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/
+Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libconfig-model-cursesui-perl/
Homepage: http://search.cpan.org/dist/Config-Model-CursesUI/
-Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libconfig-model-cursesui-perl/
-Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/
Package: libconfig-model-cursesui-perl
Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends},
- libconfig-model-perl (>= 0.637),
- libcurses-ui-perl (>= 0.9606),
- libexception-class-perl
-Description: Curses interface to edit config data through Config::Model
+Depends: ${perl:Depends},
+ ${misc:Depends},
+ libconfig-model-perl (>= 1.233),
+ libcurses-ui-perl (>= 0.9606),
+ libexception-class-perl
+Description: curses interface to edit config data through Config::Model
Config::Model::CursesUI provides a Curses interface to the configuration
editor provided by Config::Model.
.
@@ -32,5 +32,4 @@
.
This interface is used by config-edit program provided by
Config::Model.
- .
- See also http://config-model.wiki.sourceforge.net/
+
Modified: trunk/libconfig-model-cursesui-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/debian/copyright?rev=70301&op=diff
==============================================================================
--- trunk/libconfig-model-cursesui-perl/debian/copyright (original)
+++ trunk/libconfig-model-cursesui-perl/debian/copyright Thu Mar 3 13:29:28 2011
@@ -1,16 +1,17 @@
-Format-Specification:
- http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: Dominique Dumont (ddumont at cpan dot org)
-Upstream-Source: http://search.cpan.org/dist/Config-Model-CursesUI/
+Format: http://dep.debian.net/deps/dep5/
Upstream-Name: Config-Model-CursesUI
+Upstream-Contact: Dominique Dumont (ddumont at cpan dot org)
+Source: http://search.cpan.org/dist/Config-Model-CursesUI/
Files: *
-Copyright: 2007-2009, Dominique Dumont (ddumont at cpan.org)
-License: LGPL-2+
+Copyright: 2007-2009,2011, Dominique Dumont (ddumont at cpan.org)
+License: LGPL-2+
+
Files: debian/*
-Copyright: 2009, Dominique Dumont <dominique.dumont at hp.com>
-License: LGPL-2+
+Copyright: 2009, 2011 Dominique Dumont <dominique.dumont at hp.com>
+License: LGPL-2+
+
License: LGPL-2+
This program is free software; you can redistribute it and/or
@@ -19,3 +20,4 @@
the License, or (at your option) any later version.
On Debian GNU/Linux systems, the complete text of version 2 of the GNU
Lesser Public License can be found in `/usr/share/common-licenses/LGPL-2'
+
Modified: trunk/libconfig-model-cursesui-perl/lib/Config/Model/CursesUI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/lib/Config/Model/CursesUI.pm?rev=70301&op=diff
==============================================================================
--- trunk/libconfig-model-cursesui-perl/lib/Config/Model/CursesUI.pm (original)
+++ trunk/libconfig-model-cursesui-perl/lib/Config/Model/CursesUI.pm Thu Mar 3 13:29:28 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: trunk/libconfig-model-cursesui-perl/t/curses_ui.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/t/curses_ui.t?rev=70301&op=diff
==============================================================================
--- trunk/libconfig-model-cursesui-perl/t/curses_ui.t (original)
+++ trunk/libconfig-model-cursesui-perl/t/curses_ui.t Thu Mar 3 13:29:28 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: trunk/libconfig-model-cursesui-perl/t/test_model.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libconfig-model-cursesui-perl/t/test_model.pm?rev=70301&op=diff
==============================================================================
--- trunk/libconfig-model-cursesui-perl/t/test_model.pm (original)
+++ trunk/libconfig-model-cursesui-perl/t/test_model.pm Thu Mar 3 13:29:28 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