rpms/perl-Tk/devel perl-Tk-getOpenFile.patch, NONE, 1.1 perl-Tk.spec, 1.18, 1.19

[Andreas Bierfert]

Author: awjb

Update of /cvs/pkgs/rpms/perl-Tk/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv8673/devel

Modified Files:
	perl-Tk.spec 
Added Files:
	perl-Tk-getOpenFile.patch 
Log Message:
- fix getOpenFile (#487122)


perl-Tk-getOpenFile.patch:

--- NEW FILE perl-Tk-getOpenFile.patch ---
--- 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,


Index: perl-Tk.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Tk/devel/perl-Tk.spec,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -p -r1.18 -r1.19
--- perl-Tk.spec	22 Jun 2009 16:43:03 -0000	1.18
+++ perl-Tk.spec	22 Jun 2009 17:26:19 -0000	1.19
@@ -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/bal
 %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)