From 8377e1177b810866776ef7215a020bcd53cb293d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 12 Aug 2007 12:27:42 +0000
Subject: perl_checker complaince

---
 genhdlist2 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 }
 
-- 
cgit v1.2.1