diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-05-30 01:16:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-05-30 01:16:22 +0000 |
| commit | 464e0145cbfd02be966fc704d15be7b779e6f400 (patch) | |
| tree | d68492dc4a935b5708a41efd7b969867ea73535b | |
| parent | 382a7adeb755bad297c8129281fcd73a28b62c15 (diff) | |
| download | perl-MDK-Common-464e0145cbfd02be966fc704d15be7b779e6f400.tar perl-MDK-Common-464e0145cbfd02be966fc704d15be7b779e6f400.tar.gz perl-MDK-Common-464e0145cbfd02be966fc704d15be7b779e6f400.tar.bz2 perl-MDK-Common-464e0145cbfd02be966fc704d15be7b779e6f400.tar.xz perl-MDK-Common-464e0145cbfd02be966fc704d15be7b779e6f400.zip | |
simplify
| -rw-r--r-- | MDK/Common/File.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/File.pm b/MDK/Common/File.pm index a1f55d1..372d1c7 100644 --- a/MDK/Common/File.pm +++ b/MDK/Common/File.pm @@ -309,7 +309,7 @@ sub expand_symlinks { sub openFileMaybeCompressed { my ($f) = @_; -e $f || -e "$f.gz" or die "file $f not found"; - open(my $F, -e $f ? $f : "gzip -dc \'$f.gz\'|") or die "file $f is not readable"; + open(my $F, -e $f ? $f : "gzip -dc '$f.gz'|") or die "file $f is not readable"; $F; } sub catMaybeCompressed { cat__(openFileMaybeCompressed($_[0])) } |