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,
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
Fedora-perl-devel-list mailing list
Fedora-perl-devel-list@xxxxxxxxxx
https://www.redhat.com/mailman/listinfo/fedora-perl-devel-list
