Try to make temp file safer

Raku · Feb 14, 2015 · 0edfb1a · 0edfb1a
1 parent 6f6938b
commit 0edfb1a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/htmlify.p6 b/htmlify.p6
@@ -712,8 +712,10 @@ sub pygmentize-code-blocks {
                 return default($node);
             }
         }
-        my $tmp_fname = "$*TMPDIR/pod_to_pyg.pod";
+        my $basename = join '-', %*ENV<USER> // 'u', (^100_000).pick, 'pod_to_pyg.pod';
+        my $tmp_fname = "$*TMPDIR/$basename";
         spurt $tmp_fname, $node.contents.join;
+        LEAVE try unlink $tmp_fname;
         my $command = "pygmentize -l perl6 -f html < $tmp_fname";
         return qqx{$command};
     }