- 804.028-1

- version upgrade
- fix #210718 SIGSEGV on exit from texdoctk
- fix #234404 Cannot manage big listboxes
- fix #235666 Segfault occurs when using Perl-Tk on FC6

.cvsignore

@@ -1 +1 @@
-Tk-804.027.tar.gz
+Tk-804.028.tar.gz

perl-Tk-widget.patch

@@ -1,22 +1,25 @@
---- demos/widget.orig	2005-06-16 22:57:11.000000000 +0200
-+++ demos/widget	2005-06-16 23:43:23.000000000 +0200
-@@ -6,7 +6,7 @@
+--- demos/widget.orig	2008-01-02 13:24:14.000000000 +0100
++++ demos/widget	2008-01-02 13:27:10.000000000 +0100
+@@ -3,7 +3,8 @@
  use 5.008;
  use Config;
  use Tk 804.000;
 -use lib Tk->findINC( 'demos/widget_lib' );
++#use lib Tk->findINC( 'demos/widget_lib' );
 +use lib "@demopath@/widget_lib";
  use Tk::widgets qw/ DialogBox ErrorDialog LabEntry ROText /;
+ use Tk::Config ();
  use WidgetDemo;
- use subs qw/
-@@ -44,9 +44,9 @@
- $MW->title('Perl/Tk Widget Demonstration');
- $MW->iconname('widget');
- $FONT = 'Helvetica 12';
+@@ -62,9 +63,11 @@
+     $l->destroy;
+ }
+ 
 -my $widget_lib = Tk->findINC('demos/widget_lib');
++#my $widget_lib = Tk->findINC('demos/widget_lib');
 +my $widget_lib = "@demopath@/widget_lib";
  my $wd = "$widget_lib/WidgetDemo.pm";
 -$WIDTRIB = Tk->findINC('demos/widtrib');
++#$WIDTRIB = Tk->findINC('demos/widtrib');
 +$WIDTRIB = "@demopath@/widtrib";
  unless (Tk::tainting) {
      $WIDTRIB = $ENV{WIDTRIB} if defined $ENV{WIDTRIB};

perl-Tk.spec

@@ -2,14 +2,14 @@
 %define perlver %(eval "`%{__perl} -V:version`"; echo $version)
 
 Name:           perl-Tk
-Version:        804.027
-Release:        13%{?dist}
+Version:        804.028
+Release:        1%{?dist}
 Summary:        Perl Graphical User Interface ToolKit
 
 Group:          Development/Libraries
 License:        GPL or Artistic
 URL:            http://search.cpan.org/dist/Tk/
-Source0:        http://search.cpan.org/CPAN/authors/id/N/NI/NI-S/Tk-804.027.tar.gz
+Source0:        http://cpan.org/modules/by-module/Tk/Tk-804.028.tar.gz
 Patch0:         perl-Tk-widget.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
@@ -85,6 +85,13 @@ rm -rf $RPM_BUILD_ROOT
 %exclude %{perl_vendorarch}/Tk/reindex.pl
 
 %changelog
+* Wed Jan 02 2008 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>
+- 804.028-1
+- version upgrade
+- fix #210718 SIGSEGV on exit from texdoctk
+- fix #234404 Cannot manage big listboxes
+- fix #235666 Segfault occurs when using Perl-Tk on FC6
+
 * Wed Dec 19 2007 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>
 - 804.027-13
 - fix BR

sources

@@ -1 +1 @@
-d1ca4a6bff6dae4d937fabde4e86256b  Tk-804.027.tar.gz
+7153c1c411b0dd005a0660179e5c5900  Tk-804.028.tar.gz