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