summaryrefslogtreecommitdiff
path: root/lib/File/Spec/Win32.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/File/Spec/Win32.pm')
-rw-r--r--lib/File/Spec/Win32.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
index de560ce2ec..e5d38102d7 100644
--- a/lib/File/Spec/Win32.pm
+++ b/lib/File/Spec/Win32.pm
@@ -44,12 +44,13 @@ from the following list:
$ENV{TEMP}
$ENV{TMP}
SYS:/temp
+ C:\system\temp
C:/temp
/tmp
/
-The SYS:/temp is preferred in Novell NetWare (the File::Spec::Win32
-is used also for NetWare).
+The SYS:/temp is preferred in Novell NetWare and the C:\system\temp
+for Symbian (the File::Spec::Win32 is used also for those platforms).
Since Perl 5.8.0, if running under taint mode, and if the environment
variables are tainted, they are not used.
@@ -62,6 +63,7 @@ sub tmpdir {
my $self = shift;
$tmpdir = $self->_tmpdir( @ENV{qw(TMPDIR TEMP TMP)},
'SYS:/temp',
+ 'C:\system\temp',
'C:/temp',
'/tmp',
'/' );