That change attempted to skip if use Devel::Peek failed with a skip message of
of $@. Unfortunately, in this situation, $@ has multiple lines, which is not
valid as a skip message. So instead skip if we're miniperl, or we haven't built
Devel::Peek, otherwise attempt to run the test.
# Check if eval { 1 }; completely resets $@
SKIP: {
- skip("Can't load Devel::Peek: $@", 2)
- unless eval "use Devel::Peek; 1;";
+ skip_if_miniperl('no dynamic loading on miniperl, no Devel::Peek', 2);
+ require Config;
+ skip('Devel::Peek was not built', 2)
+ unless $Config::Config{extensions} =~ /\bDevel\/Peek\b/;
my $tempfile = tempfile();
open $prog, ">", $tempfile or die "Can't create test file";