[Perl-win32-gui-cvscommit] Win32-GUI/Win32-GUI-BitmapInline BitmapInline.pm, 1.5, 1.6

[Robert M. <rob...@us...>]

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) {