From 464e0145cbfd02be966fc704d15be7b779e6f400 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 30 May 2005 01:16:22 +0000 Subject: simplify --- MDK/Common/File.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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])) } -- cgit v1.2.1