From 0e5a408a9e004e3bf48d909c93b0b2693c45d961 Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Fri, 9 Nov 2007 14:29:39 +0000 Subject: - use open with 3 args instead 2 --- lib/MDV/Distribconf/Utils.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/MDV/Distribconf/Utils.pm b/lib/MDV/Distribconf/Utils.pm index 9bed51c..818eb77 100644 --- a/lib/MDV/Distribconf/Utils.pm +++ b/lib/MDV/Distribconf/Utils.pm @@ -80,7 +80,7 @@ sub checkmd5 { $foundmd5{$basename} = ''; } } - open(my $hmd5, "< $md5file") or return([ keys %foundmd5 ], \%foundmd5); + open(my $hmd5, "<", $md5file) or return([ keys %foundmd5 ], \%foundmd5); my %md5; while (<$hmd5>) { chomp; -- cgit v1.2.1