diff options
Diffstat (limited to 't/multi-word-compiler.t')
-rw-r--r-- | t/multi-word-compiler.t | 9 |
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"; } |