diff options
| author | Todd Vierling <tv@duh.org> | 2005-01-21 14:36:31 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-21 15:26:10 +0000 |
| commit | 0c52c6a9db5934c6cadc50a4a66634da7bea4268 (patch) | |
| tree | 6c036a9286ff115e1571ab88a6f3c255be6b34ec /t | |
| parent | 46fcf6af865510acbf782947f6b836299b8cc42d (diff) | |
| download | perl-0c52c6a9db5934c6cadc50a4a66634da7bea4268.tar.gz | |
[perl #33892] Add Interix support
From: Todd Vierling (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-33892-106280.17.6407478352545@perl.org>
(except the Configure chunk)
(and bump version numbers of modules)
p4raw-id: //depot/perl@23849
Diffstat (limited to 't')
| -rwxr-xr-x | t/io/openpid.t | 1 | ||||
| -rwxr-xr-x | t/op/groups.t | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/t/io/openpid.t b/t/io/openpid.t index c6ed840225..23d75ef074 100755 --- a/t/io/openpid.t +++ b/t/io/openpid.t @@ -23,6 +23,7 @@ plan tests => 10; use Config; $| = 1; $SIG{PIPE} = 'IGNORE'; +$SIG{HUP} = 'IGNORE' if $^O eq 'interix'; my $perl = which_perl(); $perl .= qq[ "-I../lib"]; diff --git a/t/op/groups.t b/t/op/groups.t index 695f989753..6110fb8c4f 100755 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -133,7 +133,7 @@ for (split(' ', $()) { print "# gr = @gr\n"; -if ($^O =~ /^(?:uwin|cygwin|solaris)$/) { +if ($^O =~ /^(?:uwin|cygwin|interix|solaris)$/) { # Or anybody else who can have spaces in group names. $gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr)))); } else { |