Oops. I intented to add the complete diff between the last version but hit the 
wrong key.

Here's the complete diff between libconfig-model-tkui-perl 1.309 and 1.310 
taken from debian-perl group's svn. Most changes affect the version number of 
the Perl modules.

All the best

Index: debian/changelog
===================================================================
--- debian/changelog	(revision 61498)
+++ debian/changelog	(revision 62496)
@@ -1,3 +1,9 @@
+libconfig-model-tkui-perl (1.310-1) unstable; urgency=low
+
+  * New upstream release (small bug fix)
+
+ -- Dominique Dumont <dominique.dum...@hp.com>  Sun, 12 Sep 2010 19:07:26 +0200
+
 libconfig-model-tkui-perl (1.309-1) unstable; urgency=low
 
   * New upstream release
Index: META.yml
===================================================================
--- META.yml	(revision 61498)
+++ META.yml	(revision 62496)
@@ -7,7 +7,7 @@
 configure_requires:
   Module::Build: 0.3601
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.101900, CPAN::Meta::Converter version 2.101670'
+generated_by: 'Dist::Zilla version 4.102340, CPAN::Meta::Converter version 2.102400'
 license: lgpl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -23,4 +23,4 @@
   Tk: 0
   Tk::DirSelect: 0
   Tk::Tree: 0
-version: 1.309
+version: 1.310
Index: lib/Config/Model/TkUI.pm
===================================================================
--- lib/Config/Model/TkUI.pm	(revision 61498)
+++ lib/Config/Model/TkUI.pm	(revision 62496)
@@ -11,7 +11,7 @@
 
 package Config::Model::TkUI ;
 BEGIN {
-  $Config::Model::TkUI::VERSION = '1.309';
+  $Config::Model::TkUI::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/HashViewer.pm
===================================================================
--- lib/Config/Model/Tk/HashViewer.pm	(revision 61498)
+++ lib/Config/Model/Tk/HashViewer.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::HashViewer ;
 BEGIN {
-  $Config::Model::Tk::HashViewer::VERSION = '1.309';
+  $Config::Model::Tk::HashViewer::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/NodeViewer.pm
===================================================================
--- lib/Config/Model/Tk/NodeViewer.pm	(revision 61498)
+++ lib/Config/Model/Tk/NodeViewer.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::NodeViewer ;
 BEGIN {
-  $Config::Model::Tk::NodeViewer::VERSION = '1.309';
+  $Config::Model::Tk::NodeViewer::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/AnyViewer.pm
===================================================================
--- lib/Config/Model/Tk/AnyViewer.pm	(revision 61498)
+++ lib/Config/Model/Tk/AnyViewer.pm	(revision 62496)
@@ -27,7 +27,7 @@
 
 package Config::Model::Tk::AnyViewer ;
 BEGIN {
-  $Config::Model::Tk::AnyViewer::VERSION = '1.309';
+  $Config::Model::Tk::AnyViewer::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/LeafViewer.pm
===================================================================
--- lib/Config/Model/Tk/LeafViewer.pm	(revision 61498)
+++ lib/Config/Model/Tk/LeafViewer.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::LeafViewer ;
 BEGIN {
-  $Config::Model::Tk::LeafViewer::VERSION = '1.309';
+  $Config::Model::Tk::LeafViewer::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/HashEditor.pm
===================================================================
--- lib/Config/Model/Tk/HashEditor.pm	(revision 61498)
+++ lib/Config/Model/Tk/HashEditor.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::HashEditor ;
 BEGIN {
-  $Config::Model::Tk::HashEditor::VERSION = '1.309';
+  $Config::Model::Tk::HashEditor::VERSION = '1.310';
 }
 
 use strict;
@@ -119,7 +119,7 @@
 
     # bind both entries to update correctly the state of all buttons
     my $bound_sub = sub { 
-	$cw->update_state(entry => $item , tklist => $tklist->curselection) 
+	$cw->update_state(entry => $item , tklist => $tklist->curselection || 0) 
     };
     $entry -> bind( '<KeyPress>'       , $bound_sub );
     $tklist-> bind( '<<ListboxSelect>>', $bound_sub );
Index: lib/Config/Model/Tk/CheckListViewer.pm
===================================================================
--- lib/Config/Model/Tk/CheckListViewer.pm	(revision 61498)
+++ lib/Config/Model/Tk/CheckListViewer.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::CheckListViewer ;
 BEGIN {
-  $Config::Model::Tk::CheckListViewer::VERSION = '1.309';
+  $Config::Model::Tk::CheckListViewer::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/NodeEditor.pm
===================================================================
--- lib/Config/Model/Tk/NodeEditor.pm	(revision 61498)
+++ lib/Config/Model/Tk/NodeEditor.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::NodeEditor ;
 BEGIN {
-  $Config::Model::Tk::NodeEditor::VERSION = '1.309';
+  $Config::Model::Tk::NodeEditor::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/NoteEditor.pm
===================================================================
--- lib/Config/Model/Tk/NoteEditor.pm	(revision 61498)
+++ lib/Config/Model/Tk/NoteEditor.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::NoteEditor ;
 BEGIN {
-  $Config::Model::Tk::NoteEditor::VERSION = '1.309';
+  $Config::Model::Tk::NoteEditor::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/ListViewer.pm
===================================================================
--- lib/Config/Model/Tk/ListViewer.pm	(revision 61498)
+++ lib/Config/Model/Tk/ListViewer.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::ListViewer ;
 BEGIN {
-  $Config::Model::Tk::ListViewer::VERSION = '1.309';
+  $Config::Model::Tk::ListViewer::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/LeafEditor.pm
===================================================================
--- lib/Config/Model/Tk/LeafEditor.pm	(revision 61498)
+++ lib/Config/Model/Tk/LeafEditor.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::LeafEditor ;
 BEGIN {
-  $Config::Model::Tk::LeafEditor::VERSION = '1.309';
+  $Config::Model::Tk::LeafEditor::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/CheckListEditor.pm
===================================================================
--- lib/Config/Model/Tk/CheckListEditor.pm	(revision 61498)
+++ lib/Config/Model/Tk/CheckListEditor.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::CheckListEditor ;
 BEGIN {
-  $Config::Model::Tk::CheckListEditor::VERSION = '1.309';
+  $Config::Model::Tk::CheckListEditor::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/Wizard.pm
===================================================================
--- lib/Config/Model/Tk/Wizard.pm	(revision 61498)
+++ lib/Config/Model/Tk/Wizard.pm	(revision 62496)
@@ -10,7 +10,7 @@
 
 package Config::Model::Tk::Wizard ;
 BEGIN {
-  $Config::Model::Tk::Wizard::VERSION = '1.309';
+  $Config::Model::Tk::Wizard::VERSION = '1.310';
 }
 
 use strict;
Index: lib/Config/Model/Tk/ListEditor.pm
===================================================================
--- lib/Config/Model/Tk/ListEditor.pm	(revision 61498)
+++ lib/Config/Model/Tk/ListEditor.pm	(revision 62496)
@@ -9,7 +9,7 @@
 #
 package Config::Model::Tk::ListEditor ;
 BEGIN {
-  $Config::Model::Tk::ListEditor::VERSION = '1.309';
+  $Config::Model::Tk::ListEditor::VERSION = '1.310';
 }
 
 use strict;
Index: ChangeLog
===================================================================
--- ChangeLog	(revision 61498)
+++ ChangeLog	(revision 62496)
@@ -1,3 +1,8 @@
+2010-09-10  Dominique Dumont  <domi.dum...@free.fr> 1.310
+
+	* lib/Config/Model/Tk/HashEditor.pm (Populate): Fix bug that messed up 
+	  effects of 'add' and 'move_down' buttons.
+
 2010-08-08  Dominique Dumont  <domi.dum...@free.fr> 1.309
 
 	* lib/Config/Model/Tk/AnyViewer.pm (add_help): Fix bug that hid
Index: Build.PL
===================================================================
--- Build.PL	(revision 61498)
+++ Build.PL	(revision 62496)
@@ -29,10 +29,12 @@
 use Module::Build;
 
 require 5.008 ;
+my @version_info = @ARGV ? (dist_version => $ARGV[0]) : () ;
 
 my $build = Module::Build->new
   (
    module_name => 'Config::Model::TkUI',
+   @version_info,
    license => 'lgpl',
    dist_abstract => "Tk GUI to edit config data through Config::Model",
    dist_author  => "Dominique Dumont (ddumont at cpan dot org)",

Reply via email to