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

- fix getOpenFile (#487122)

Browse Source
This commit is contained in:
Andreas Bierfert 2009-06-22 17:26:19 +00:00
parent aaa94fbc37
commit 98cf17e4e8
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
perl-Tk-getOpenFile.patch Normal file
View File

@ -0,0 +1,11 @@
--- Tk/FBox.pm.orig 2009-06-22 19:18:49.000000000 +0200
+++ Tk/FBox.pm 2009-06-22 19:19:30.000000000 +0200
@@ -906,7 +906,7 @@
if ($w->cget('-multiple')) {
$selectFilePath = [];
for my $f (@{ $w->{'selectFile'} }) {
- push @$selectFilePath, JoinFile($w->_get_select_Path, $f);
+ push @$selectFilePath, JoinFile($w->_get_select_path, $f);
}
} else {
$selectFilePath = JoinFile($w->_get_select_path,

10
perl-Tk.spec
View File

@ -3,7 +3,7 @@
Name: perl-Tk
Version: 804.028
Release: 8%{?dist}
Release: 9%{?dist}
Summary: Perl Graphical User Interface ToolKit
Group: Development/Libraries
@ -20,6 +20,9 @@ Patch3: perl-Tk-XIM.patch
# fix for bugs #491536 & #489228 & #506496 (see comment #8)
# see http://rt.cpan.org/Public/Bug/Display.html?id=38746
Patch4: perl-Tk-events.patch
# fix for bug #487122
# see http://rt.cpan.org/Public/Bug/Display.html?id=31989
Patch5: perl-Tk-getOpenFile.patch
# fix gif overflow in tk see CVE-2006-4484 and CVE-2007-6697 or #431518 and
# #431529
@ -64,6 +67,7 @@ chmod -x pod/Popup.pod Tixish/lib/Tk/balArrow.xbm
%patch2 -p1 -b .seg
%patch3 -p1 -b .xim
%patch4 -b .events
%patch5 -b .getOpenFile
%patch100
%build
@ -109,6 +113,10 @@ rm -rf $RPM_BUILD_ROOT
%exclude %{perl_vendorarch}/Tk/reindex.pl
%changelog
* Mon Jun 22 2009 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>
- 804.028-9
- fix getOpenFile (#487122)
* Mon Jun 15 2009 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>
- 804.028-8
- fix events (#489228, #491536, #506496)