2009-11-10T11:44:17 sid burn

Code (perl): (dl )

1
2
3
4
5
6
7

[...]
my $file = $ARGV[0];

my $temp = File::Temp->new(DIR => File::Spec->curdir);
[...]

rename $temp->filename, $file;

Das so zu machen ist meiner Meinung nach keine so tolle Idee, da rename auf vielen Systemen fehlschlägt, wenn $file und $temp nicht auf dem gleichen Dateisystem liegen und da ich ohne Lektüre des Quellcodes niemals annehmen würde, dass temporäre Dateien einfach ins aktuelle Arbeitsverzeichnis gekleistert werden.

Ich würde dem Konstruktor von File::Temp genau das Verzeichnis vorgeben, wo auch auch $file liegt, was beide Probleme behebt.