From c29723a2c4835cbcd948ae430e5a6b0745376ea9 Mon Sep 17 00:00:00 2001
From: Andreas Bierfert <awjb@fedoraproject.org>
Date: Wed, 2 Jan 2008 13:04:53 +0000
Subject: [PATCH] - 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           |  2 +-
 perl-Tk-widget.patch | 19 +++++++++++--------
 perl-Tk.spec         | 13 ++++++++++---
 sources              |  2 +-
 4 files changed, 23 insertions(+), 13 deletions(-)

diff --git a/.cvsignore b/.cvsignore
index f1d0038..85cf73a 100644
--- a/.cvsignore
+++ b/.cvsignore
@@ -1 +1 @@
-Tk-804.027.tar.gz
+Tk-804.028.tar.gz
diff --git a/perl-Tk-widget.patch b/perl-Tk-widget.patch
index 24eaa44..ec44658 100644
--- a/perl-Tk-widget.patch
+++ b/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};
diff --git a/perl-Tk.spec b/perl-Tk.spec
index 5398ab6..6b45796 100644
--- a/perl-Tk.spec
+++ b/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
diff --git a/sources b/sources
index d603442..b5a3def 100644
--- a/sources
+++ b/sources
@@ -1 +1 @@
-d1ca4a6bff6dae4d937fabde4e86256b  Tk-804.027.tar.gz
+7153c1c411b0dd005a0660179e5c5900  Tk-804.028.tar.gz