Skip to content

Commit

Permalink
Skip the Wheel::Run tests if $^O eq "MSWin32" and Win32::Console is
Browse files Browse the repository at this point in the history
not installed.  Some relatively new Win32 distributions advertise $^O
identically to ActivePerl but don't include the same set of modules as
that distribution.  Resolves rt.cpan.org ticket 20574 from Adam
Kennedy.
  • Loading branch information
rcaputo committed Aug 7, 2006
1 parent 79bd325 commit 13b7775
Showing 1 changed file with 8 additions and 2 deletions.
10 changes: 8 additions & 2 deletions tests/30_loops/00_base/wheel_run.pm
Original file line number Diff line number Diff line change
Expand Up @@ -17,8 +17,14 @@ BEGIN {
$error = "$^O does not support fork";
}

if ($^O eq "MSWin32" and exists $INC{"Event.pm"}) {
$error = "$^O\'s fork() emulation breaks Event";
if ($^O eq "MSWin32") {
eval 'use Win32::Console';
if ($@) {
$error = "$^O needs Win32::Console for this test";
}
elsif (exists $INC{"Event.pm"}) {
$error = "$^O\'s fork() emulation breaks Event";
}
}

if ($error) {
Expand Down

0 comments on commit 13b7775

Please sign in to comment.