diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2007-11-09 14:29:39 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2007-11-09 14:29:39 +0000 |
| commit | 0e5a408a9e004e3bf48d909c93b0b2693c45d961 (patch) | |
| tree | b9f58d99fce5003b4a8158298de83d07f08537e7 | |
| parent | 123f0f08b6a1060ac5422a6acca434e505007398 (diff) | |
| download | perl-MDV-Distribconf-0e5a408a9e004e3bf48d909c93b0b2693c45d961.tar perl-MDV-Distribconf-0e5a408a9e004e3bf48d909c93b0b2693c45d961.tar.gz perl-MDV-Distribconf-0e5a408a9e004e3bf48d909c93b0b2693c45d961.tar.bz2 perl-MDV-Distribconf-0e5a408a9e004e3bf48d909c93b0b2693c45d961.tar.xz perl-MDV-Distribconf-0e5a408a9e004e3bf48d909c93b0b2693c45d961.zip | |
- use open with 3 args instead 2
| -rw-r--r-- | lib/MDV/Distribconf/Utils.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |