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