File::Temp - temp-Verzeichnis wird ignoriert wenn perl -T (Win32) (gelöst) (Fragen zu Perl-Modulen)

[thread]19170[/thread]

File::Temp - temp-Verzeichnis wird ignoriert wenn perl -T (Win32) [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

Teilbaum:
File::Spec::Win32 - Bugfix für User-Temp-Verzeichnis (0 Artikel) 2014-07-01 19:07

+6 replies
GwenDragon

2014-07-01 15:51
User since
2005-01-17
14746 Artikel
Admin1
Ich habe heute diverse Module (in dem Fall die Testfiles *.t!) getestet und bemerkt, dass bei denen File::Temp->tempdir kein Verzeichnis im temporären Verzeichnis erzeugt, wenn das Modul im Taintmode aufgerufen wird.

test.pl:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!perl -T use strict; use warnings; use File::Temp (); my $tempdir = File::Temp->newdir; print "Tempdir is $tempdir"; =pod generates something like: Tempdir is \2n_ZnUbENO but should be something like: Tempdir is C:\Users\MYNAM~1\AppData\Local\Temp\58nDhHDTcd =cut
Aufzurufen als:
perl -T -IC:\strawberry\perl\lib -IC:\strawberry\perl\site\lib -IC:\strawberry\perl\vendor\lib test.pl

Gibt leider nur /58nDhHDTcd o. ä. als (ohne kompletten Pfad auf temporäres Verzeichnis) aus! Was nicht sinnvoll ist.

Ist aber nur ein Windows-Problem!
Auf Linux wird immer ein neues Verzeichnis unterhalb /tmp/ erzeugt.

Ich verwendete:
Windows 7 (x64)
Strawberry Perl 5.14.4 (32bit!) MSWin32-x86-multi-thread
File::Spec (3.47) ist aktuell aus SMUELLER/PathTools-3.47.tar.gz
File::Temp (0.2304) aus File-Temp-0.2304.tar.gz

Habe aber auch 5.20 getstet mit selbem Ergebnis.

Kann das jemand bitte mit Strawberry-Perl unter Windows testen?
Dann kann ich den Maintainer von File::Temp wegen des taintmodes ansprechen, was das ist und ob das beabsichtigt ist, denn es stört auch andere Modultests wie bei z. B. App:Ack.
Last edited: 2014-07-01 15:59:23 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- Raubtier
  
  2014-07-01 16:30
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  Siehe File::Spec::Win32 - sieht mir eher so aus, als sollte man das dort fixen. Das Temp-Dir sollte man eigentlich lieber direkt von Windows abfragen (GetSpecialFolder) als über Env-Variablen.
  
  Quote
  Since Perl 5.8.0, if running under taint mode, and if the environment
  variables are tainted, they are not used.
  
  =cut
  
  my $tmpdir;
  sub tmpdir {
  return $tmpdir if defined $tmpdir;
  $tmpdir = $_[0]->_tmpdir( map( $ENV{$_}, qw(TMPDIR TEMP TMP) ),
  'SYS:/temp',
  'C:\system\temp',
  'C:/temp',
  '/tmp',
  '/' );
  }
  - GwenDragon
    
    2014-07-01 16:41
    
    User since
    2005-01-17
    14746 Artikel
    Admin1
    
    Aha, das ist also der Bösewicht. Danke.
    Ich habe den Hinweis zwar gesehen, dass es hakt, wenn tainted, man das neueste Modul nehmen soll; daraus schloss ich, dass das problem gefixt war.
    Dass File::Spec::Win32 das Problem macht, habe ich übersehen.
    
    Quote
    tmpdir
    
    Returns a string representation of the first existing directory from the following list:$ENV{TMPDIR}
    $ENV{TEMP}
    $ENV{TMP}
    SYS:/temp
    C:\system\temp
    C:/temp
    /tmp
    /
    
    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).
    
    If running under taint mode, and if the environment variables are tainted, they are not used.
    
    https://metacpan.org/pod/File::Spec::Win32#tmpdir
    
    Kein Wunder.
    Auf den meisten Systemen exiostiert C:\temp oder \tmp nicht, also wird stattdessen das \ des Laufwerks auf dem die Tests laufen genommen.
    
    Muss ich mir mal einen Patch überlegen und an den Maintainer senden.
    Last edited: 2014-07-01 16:43:05 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - GwenDragon
    
    2014-07-01 19:00
    
    Subtree with 1 replies: File::Spec::Win32 - Bugfix für User-Temp-Verzeichnis
    User since
    2005-01-17
    14746 Artikel
    Admin1
    
    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
  - GwenDragon
    
    2014-07-01 21:01
    
    User since
    2005-01-17
    14746 Artikel
    Admin1
    
    Verdammt auf dem Windowsrechner hat mir das kaputte File::Spec Hunderte Verzeichnissen ins \ gemüllt.
    
    Gut das ich den Fix jetzt veröffentlicht habe.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- payx
  
  2014-07-01 16:39
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Hallo GwenDragon,
  
  bei mir ist das Verhalten analog.
  
  Windows 7 (x64)
  Strawberry Perl 5.16.1 32 bit MSWin32-x64-multi-thread
  File::Spec 3.39_02
  File::Temp 0.22
  
  Hinweis: Das bei -T ausgegebene Verzeichnis wird tatsächlich so (unter C:\) erzeugt.
  
  HTH
  Grüße
  payx

View all threads created 2014-07-01 15:51.