Skip Menu |

This queue is for tickets about the PathTools CPAN distribution.

Report information
The Basics
Id: 130007
Status: open
Priority: 0/
Queue: PathTools

People
Owner: Nobody in particular
Requestors: b3608017 [...] urhen.com
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 3.00
Fixed in: (no value)



Subject: finally clever patch to fix File::Spec::Win32::tempfile
Hi Please apply immediately, the wait has been too long already, Thanks :) sub tmpdir { my $tmpdir = $_[0]->_cached_tmpdir(qw(TMPDIR TEMP TMP)); return $tmpdir if defined $tmpdir; $tmpdir = $_[0]->_tmpdir( map( $ENV{$_}, qw(TMPDIR TEMP TMP) ), 'SYS:/temp', 'C:\system\temp', 'C:/temp', '/tmp', './TEMPORARY', './' ); $_[0]->_cache_tmpdir($tmpdir, qw(TMPDIR TEMP TMP)); } Related inaction https://rt.cpan.org/Public/Bug/Display.html?id=76663 https://rt.cpan.org/Public/Bug/Display.html?id=70492 https://rt.cpan.org/Public/Bug/Display.html?id=60406 https://rt.cpan.org/Public/Bug/Display.html?id=29015 https://rt.cpan.org/Public/Bug/Display.html?id=74349
On Sun Jul 07 02:23:32 2019, b3608017@urhen.com wrote: Show quoted text
> Hi > > Please apply immediately, the wait has been too long already, Thanks :)
This is not tainted $ perl -T - #!/usr/bin/perl -T -- use strict; use warnings; use Scalar::Util qw/ tainted /; use File::Spec(); use Win32(); my $dir = File::Spec->rel2abs( File::Spec->catfile( Win32::GetFolderPath( Win32::CSIDL_LOCAL_APPDATA() ), qw/ .. Temp / ) ); die tainted( $dir ); __END__ 0 at - line 16.
Unless you really tested that the bug exists in all those versions, please don't add them all to the ticket -- it makes the main rt page unviewable.