summaryrefslogtreecommitdiff
path: root/t/multi-word-compiler.t
diff options
context:
space:
mode:
authorgregor herrmann <gregoa@debian.org>2022-05-07 20:46:02 +0200
committergregor herrmann <gregoa@debian.org>2022-05-07 20:46:02 +0200
commita1d39bf853e20805af41cf9de4205611dd372626 (patch)
tree922944217f8fcae2c353f0b19d09e58b8c893a36 /t/multi-word-compiler.t
parentcbcab4aaf385d75640e976f304e3a9974547e3a9 (diff)
New upstream version 1.16
Diffstat (limited to 't/multi-word-compiler.t')
-rw-r--r--t/multi-word-compiler.t9
1 files changed, 5 insertions, 4 deletions
diff --git a/t/multi-word-compiler.t b/t/multi-word-compiler.t
index 1fe415a..c9c0f86 100644
--- a/t/multi-word-compiler.t
+++ b/t/multi-word-compiler.t
@@ -20,19 +20,20 @@ BEGIN {
}
}
+my $fake_cc = qq{"$^X" $Config{cc}};
if ($Mock::Config::VERSION) {
- Mock::Config->import(cc => "$^X $Config{cc}");
+ Mock::Config->import(cc => $fake_cc);
}
elsif (defined($ActivePerl::VERSION) && $Config{cc} =~ /\bgcc\b/) {
my $obj = tied %Config::Config;
- $obj->{cc} = "$^X $Config{cc}";
+ $obj->{cc} = $fake_cc;
}
else {
- eval { $Config{cc} = "$^X $Config{cc}"; }
+ eval { $Config{cc} = $fake_cc; }
}
SKIP: {
skip "Couldn't update %Config", 1 if $@ =~ /%Config::Config is read-only/;
eval "use Devel::CheckLib";
- ok(!$@, "Good multi-word compiler is OK");
+ is $@, "", "Good multi-word compiler is OK";
}