fix genhdlist without arg4.5.18

1 files changed, 1 insertions, 1 deletions

diff --git a/genhdlist b/genhdlist
index a9e6a68..3ac8080 100644
--- a/genhdlist
+++ b/genhdlist
@@ -62,7 +62,7 @@ my @dir = @ARGV ? @ARGV : (".");
 
 grep { m!^/! } @dir and die "Directory path to parse should be relative";
 
-$dest and chdir $dest or die "can't chdir in directory $dest";
+$dest and do { chdir $dest or die "can't chdir in directory $dest"; };
 rmtree($tmpdir) unless $noclean;
 mkpath($tmpdir);