Skip to content

C
core
Kaydet (Commit) aa71d04d authored tarafından Hans-Joachim Lankenau's avatar Hans-Joachim Lankenau
Dosyalara gözat
Seçenekler

ause119: #i111342# add random to workfiles

üst f3039976
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
solenv/bin/mhids.pl
Dosyayı görüntüle @ aa71d04d
...@@ -155,7 +155,9 @@ $filebase =~ s/\..*?$//; ...@@ -155,7 +155,9 @@ $filebase =~ s/\..*?$//;
# now stript it to something that doesn't togger vista execution prevention :( # now stript it to something that doesn't togger vista execution prevention :(
$flbs = $filebase; $flbs = $filebase;
$flbs =~ s/[aeiou]//g; $flbs =~ s/[aeiou]//g;
$workfile = "$tmpdir/${flbs}_".$$; # call srand ony once per script!
srand();
$workfile = "$tmpdir/${flbs}_".$$.rand();
#$workfile =~ s/setup/set_up/; #$workfile =~ s/setup/set_up/;
# now get $workfile ready for shell usage... # now get $workfile ready for shell usage...
...@@ -171,7 +173,7 @@ unlink "$workfile.obj"; ...@@ -171,7 +173,7 @@ unlink "$workfile.obj";
if ( -f "$workfile.hid" ) if ( -f "$workfile.hid" )
{ {
unlink "$workfile.hid" or die "ERRROR - cannot remove $workfile.hid\n";; unlink "$workfile.hid" or die "ERRROR - cannot remove $workfile.hid\n";
} }
# hack to quit for files which cannot be handled # hack to quit for files which cannot be handled
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment