perl_checker complaince

1 files changed, 1 insertions, 1 deletions

diff --git a/genhdlist2 b/genhdlist2
index 3ca0963..fcbbbb5 100644
--- a/genhdlist2
+++ b/genhdlist2
@@ -234,7 +234,7 @@ sub generate_md5sum {
     print "updating $media_info_dir/MD5SUM\n" if $verbose >= 0;
     my $m = `cd '$media_info_dir' ; /usr/bin/md5sum hdlist.cz synthesis.hdlist.cz`;
     unlink "$media_info_dir/MD5SUM"; # ensure no hard link is used
-    open my $f, '>', "$media_info_dir/MD5SUM" or die "Can't write MD5SUM: $!\n";
+    open(my $f, '>', "$media_info_dir/MD5SUM") or die "Can't write MD5SUM: $!\n";
     print $f $m;
 }