X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FSpec%2FWin32.pm;h=e5d38102d7e642237eaafdf883f8ef815187b3b8;hb=27da23d53ccce622bc51822f59df8def79b4df95;hp=de560ce2ec8f4e3c541e8274bbf9fbb68726c5bd;hpb=ec0624293b57ae07d6b2c32bae099d4f163e7e07;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
index de560ce..e5d3810 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',
 			      '/'  );