rpms/perl-Tk
5
0
Fork 0
Code Issues Pull Requests Releases Activity

- 804.028-1

Browse Source 
- 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
This commit is contained in:
Andreas Bierfert 2008-01-02 13:04:53 +00:00
parent b3868e4367
commit c29723a2c4
4 changed files with 23 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.cvsignore
View File

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

19
perl-Tk-widget.patch
View File

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

13
perl-Tk.spec
View File

@ -2,14 +2,14 @@
%define perlver %(eval "`%{__perl} -V:version`"; echo $version) %define perlver %(eval "`%{__perl} -V:version`"; echo $version)
Name: perl-Tk Name: perl-Tk
Version: 804.027 Version: 804.028
Release: 13%{?dist} Release: 1%{?dist}
Summary: Perl Graphical User Interface ToolKit Summary: Perl Graphical User Interface ToolKit
Group: Development/Libraries Group: Development/Libraries
License: GPL or Artistic License: GPL or Artistic
URL: http://search.cpan.org/dist/Tk/ 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 Patch0: perl-Tk-widget.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
@ -85,6 +85,13 @@ rm -rf $RPM_BUILD_ROOT
%exclude %{perl_vendorarch}/Tk/reindex.pl %exclude %{perl_vendorarch}/Tk/reindex.pl
%changelog %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> * Wed Dec 19 2007 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>
- 804.027-13 - 804.027-13
- fix BR - fix BR

2
sources
View File

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