Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
run socket tests on rakudo.jvm/linux
  • Loading branch information
moritz committed Sep 7, 2013
1 parent 2e0bf7c commit ac4e4e3
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions S32-io/IO-Socket-INET.t
Expand Up @@ -22,7 +22,7 @@ my $host = '127.0.0.1'; # or 'localhost' may be friendlier
# To find an free port, list the ports currently in use.
my ( @ports, $netstat_cmd, $netstat_pat, $received, $expected );
given $*OS {
when 'linux' {
when any 'linux', 'Linux' {
$netstat_cmd = "netstat --tcp --all --numeric";
$netstat_pat = rx{ State .+? [ ^^ .+? ':' (\d+) .+? ]+ $ };
}
Expand Down Expand Up @@ -61,7 +61,7 @@ if $port >= 65535 {
diag "{elapsed} Testing on port $port";


if $*OS eq any <linux darwin solaris MSWin32>, 'Mac OS X' { # please add more valid OS names
if $*OS eq any <linux Linux darwin solaris MSWin32>, 'Mac OS X' { # please add more valid OS names

my $is-win;
$is-win = True if $*OS eq 'MSWin32';
Expand Down

0 comments on commit ac4e4e3

Please sign in to comment.