Safety check: make sur temporary directory is owned by user

1 files changed, 3 insertions, 0 deletions

diff --git a/genhdlist b/genhdlist
index 871d919..61ed645 100644
--- a/genhdlist
+++ b/genhdlist
@@ -55,6 +55,9 @@ my @dir = @ARGV ? @ARGV : (".");
 grep { m!^/! } @dir and die "Directories to parse should be relative\n";
 
 $dest and do { chdir $dest or die "Can't chdir in directory $dest\n" };
+
+-o $tmpdir or
+    die "$tmpdir is not owned by you, bailing out\n";
 rmtree($tmpdir) unless $noclean;
 mkpath($tmpdir);