rpms/perl-Tk/F-10 perl-Tk-getOpenFile.patch,NONE,1.1

[Andreas Bierfert]

Author: awjb

Update of /cvs/pkgs/rpms/perl-Tk/F-10
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv10850

Added Files:
	perl-Tk-getOpenFile.patch 
Log Message:
- openfile patch


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,