This is an automatically generated mail from the syncmail system. Do not reply
directly to this email. Further discussion should take place on the hackers
list: [EMAIL PROTECTED]
Update of /cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-BitmapInline
In directory
sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5541/Win32-GUI-BitmapInline
Modified Files:
BitmapInline.pm
Log Message:
Fix problem with tainted tmpfile under perl 5.6.1
Index: BitmapInline.pm
===================================================================
RCS file:
/cvsroot/perl-win32-gui/Win32-GUI/Win32-GUI-BitmapInline/BitmapInline.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** BitmapInline.pm 13 Jan 2008 11:42:57 -0000 1.5
--- BitmapInline.pm 31 Jan 2008 00:17:28 -0000 1.6
***************
*** 96,99 ****
--- 96,107 ----
my $tmpfile = File::Spec->catfile(File::Spec->tmpdir(), _tmp_filename());
+ # On perl 5.6 we have problems with tainted data in open().
+ # so (naughtily) untaint our TMP file name. In later versions
+ # of File::Spec tmpdir() won't give us a tained answer.
+ if($[ < 5.008000) {
+ $tmpfile =~ /^(.*)$/;
+ $tmpfile = $1;
+ }
+
open(my $tmpfh, '>', $tmpfile);
if(!$tmpfh) {
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Perl-win32-gui-cvscommit mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-cvscommit
http://perl-win32-gui.sourceforge.net/
