@@ -306,7 +306,7 @@ sub main {
load_src_override $src_override, $override;
load_override_extra $extra_override_file if defined $extra_override_file;
- open my $find_fh, '-|', "find -L \Q$dir\E -name '*.dsc' -print"
+ open my $find_fh, '-|', 'find', '-L', $dir, '-name', '*.dsc', '-print'
or syserr(g_('cannot fork for %s'), 'find');
while (<$find_fh>) {
chomp;
@@ -60,7 +60,8 @@ sub check_uncompressed {
sub check_compressed {
my ($filename, $method) = @_;
- open(my $read_fh, '-|', "zcat $tmpdir/myfile.gz") or die 'cannot fork zcat';
+ open my $read_fh, '-|', 'zcat', "$tmpdir/myfile.gz"
+ or die 'cannot fork zcat';
my @read = <$read_fh>;
close $read_fh or die 'cannot close';
is_deeply(\@lines, \@read, "$filename correctly written ($method)");