diff options
-rw-r--r-- | genhdlist2 | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; } |