Try to make temp file safer

moritz · moritz · commit 0edfb1a2828c · 2015-02-14T19:52:56.000+01:00
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};
     }

Original file line number	Diff line number	Diff line change
`@@ -712,8 +712,10 @@ sub pygmentize-code-blocks {`
`712`	`712`	`return default($node);`
`713`	`713`	`}`
`714`	`714`	`}`
`715`		`- my $tmp_fname = "$*TMPDIR/pod_to_pyg.pod";`
	`715`	`+ my $basename = join '-', %*ENV<USER> // 'u', (^100_000).pick, 'pod_to_pyg.pod';`
	`716`	`+ my $tmp_fname = "$*TMPDIR/$basename";`
`716`	`717`	`spurt $tmp_fname, $node.contents.join;`
	`718`	`+ LEAVE try unlink $tmp_fname;`
`717`	`719`	`my $command = "pygmentize -l perl6 -f html < $tmp_fname";`
`718`	`720`	`return qqx{$command};`
`719`	`721`	`}`