diff options
author | gregor herrmann <gregoa@debian.org> | 2022-05-07 20:46:02 +0200 |
---|---|---|
committer | gregor herrmann <gregoa@debian.org> | 2022-05-07 20:46:02 +0200 |
commit | a1d39bf853e20805af41cf9de4205611dd372626 (patch) | |
tree | 922944217f8fcae2c353f0b19d09e58b8c893a36 /t/multi-word-compiler.t | |
parent | cbcab4aaf385d75640e976f304e3a9974547e3a9 (diff) |
New upstream version 1.16
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"; } |