Thread File::Temp - temp-Verzeichnis wird ignoriert wenn perl -T (Win32) (5 answers)
Opened by GwenDragon at 2014-07-01 15:51

GwenDragon
 2014-07-01 19:00
#176242 #176242
User since
2005-01-17
14757 Artikel
Admin1
[Homepage]
user image
Habe schon Steffen Müller wegen des Bug #96863 mit Mail benachrichtigt.

Mein Fix bei File::Spec::Win32 besteht aus dem Holen des Pfades von %LOCALAPPDATA% mittels Win32::GetFolderPath und dem Anhängen von Temp:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

sub tmpdir {
    my $tmpdir = $_[0]->_cached_tmpdir(qw(TMPDIR TEMP TMP));
    return $tmpdir if defined $tmpdir;
    
    my $appdata_local_temp;
    eval{
      require Win32; 
      $appdata_local_temp = _canon_cat(Win32::GetFolderPath(Win32::CSIDL_LOCAL_APPDATA()),'Temp');
    };
    
    $tmpdir = $_[0]->_tmpdir(                   
                  map( $ENV{$_}, qw(TMPDIR TEMP TMP) ),
                  $appdata_local_temp,
                  'SYS:/temp',
                  'C:\system\temp',
                  'C:/temp',
                  '/tmp',
                  '/'  
                  );
    $_[0]->_cache_tmpdir($tmpdir, qw(TMPDIR TEMP TMP));
}

Last edited: 2014-07-01 19:07:04 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread File::Temp - temp-Verzeichnis wird ignoriert wenn perl -T (Win32)