22
23
for my $lib (@module_files)
24
25
# see L<perlfaq8/How can I capture STDERR from an external command?>
26
27
my $stderr = IO::Handle->new;
28
my $pid = open3($stdin, '>&STDERR', $stderr, qq{$^X -Mblib -e"require q[$lib]"});
29
my $pid = open3($stdin, '>&STDERR', $stderr, $^X, '-Mblib', '-e', "require q[$lib]");
31
33
is($? >> 8, 0, "$lib loaded ok");
36
38
push @warnings, @_warnings;