diff options
| author | Nicholas Clark <nick@ccl4.org> | 2000-06-23 17:21:15 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-06-29 21:24:51 +0000 |
| commit | 466293177e80bfc85decf1ba2eefeff19cb8070c (patch) | |
| tree | 6fa7209093b3253907777d654105f31725932c7e /t/op | |
| parent | b345f6ba55ed07ea9bbf2d14bf1307c9f5648c02 (diff) | |
| download | perl-466293177e80bfc85decf1ba2eefeff19cb8070c.tar.gz | |
PATCH (Re: [ID 20000612.004] Should regression tests fail if user doesn't build XS extensions?)
Message-ID: <20000623162115.A19894@Bagpuss.unfortu.net>
p4raw-id: //depot/cfgperl@6270
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/taint.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index 6548b46f59..af578347cc 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -24,7 +24,8 @@ BEGIN { $ENV{PATH} = $ENV{PATH}; $ENV{TERM} = $ENV{TERM} ne ''? $ENV{TERM} : 'dummy'; } - if ($Config{d_shm} || $Config{d_msg}) { + if ($Config{'extensions'} =~ /\bIPC\/SysV\b/ + && ($Config{d_shm} || $Config{d_msg})) { require IPC::SysV; IPC::SysV->import(qw(IPC_PRIVATE IPC_RMID IPC_CREAT S_IRWXU)); } @@ -612,7 +613,7 @@ else { # test shmread { - if ($Config{d_shm}) { + if ($Config{'extensions'} =~ /\bIPC\/SysV\b/ && $Config{d_shm}) { no strict 'subs'; my $sent = "foobar"; my $rcvd; @@ -646,7 +647,7 @@ else { # test msgrcv { - if ($Config{d_msg}) { + if ($Config{'extensions'} =~ /\bIPC\/SysV\b/ && $Config{d_msg}) { no strict 'subs'; my $id = msgget(IPC_PRIVATE, IPC_CREAT | S_IRWXU); |