summaryrefslogtreecommitdiff
path: root/t/multi-word-compiler.t
diff options
context:
space:
mode:
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";
}